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ABSTRACT 


The  structural  seaworthiness  digital  computer  program 
ROSAS  and  users  manual  are  presented  in  this  report.  The 
program  was  developed  using  FORTRAN  computer  language,  and 
it  simulates  the  hull  girder  structural  response  of  a ship, 
including  dynamic  effects  when  it  encounters  head  seas  of 
the  regular,  irregular,  discrete,  standing  or  other  wave 
forms.  Response  calculations  include  the  ship  rigid  and 
elastic  body  motion,  bending  moment,  and  shear.  Vibratory 
hull  girder  modes  can  also  be  determined,  and  the  effect  of 
bow  flare,  bottom  slamming  and  springing  can  be  included. 
Computations  have  been  compared  with  actual  ship  responses. 
The  results  are  in  good  agreement  with  those  obtained  from 
actual  ship  sea  trials,  model  experiments,  a computer 
program  developed  by  the  Ship  Structure  Committee,  and  an 
earlier  analog  computer  program  developed  by  the  David  W. 
Taylor  Naval  Ship  Research  and  Development  Center.  The 
program  is  a valuable  tool  for  predicting  hull  girder 
response  of  new  ship  designs  or  to  compare  results  of 
model  or  prototype  data. 


ADMINISTRATIVE  INFORMATION 

This  project  has  been  funded  and  authorized  by  the  Naval  Ship  Systems 
Command  (035)  under  Subproject  SF  43  422  504,  Task  15939,  Work  Unit  1-1730- 
315. 

INTRODUCTION 

The  design  of  a new  seagoing  ship  has  usually  been  based  on  past  exper- 
ience as  well  as  rules  and  empirical  formulas  that  are  not  too  involved  with 
higher  mathematics.  The  rules  and  formulas,  prepared  by  classification 
societies  such  as  the  American  Bureau  of  Shipping,  Lloyd's,  and  others  are 
quite  simple  to  apply  and  are  the  only  guides  needed  for  ship  design  by 
designing  offices  and  shipyards.  Such  practice  is  considered  reliable 
because,  from  year  to  year,  rules  and  formulas  are  reviewed,  revised,  modi- 
fied, and  improved  by  a group  of  experienced  and  reputable  engineers  and 
specialists  in  the  fields  of  ship  operation,  maintenance,  repair,  construc- 
tion, and  design. 
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If  a ship  design  were  to  deviate  from  the  so-called  conventional  type, 
adoption  of  the  standard  rules  and  formulas  would  be  difficult.  Therefore, 
when  novel  types  of  ships  are  being  designed,  the  quasi-static  balance 
method  has  been  adopted  to  determine  hull  loads  for  the  design.  The 
technique  is  to  put  a ship  on  a fictitious  wave-shaped  sea  surface  and  to 
balance  the  weight  of  the  ship  statically  with  the  buoyancy  force  of  the 
static  wave.  Calculations  provide  ship  responses  in  bending  so  that  the 
ship  designer  may  determine,  accordingly,  the  ship  scantlings. 

Calculation  by  this  method  is  simple  but  cumbersome,  if  it  is  done  by 
hand.  With  the  aid  of  computers,  the  process  becomes  simple.  However,  a 
drawback  to  this  method  is  the  omission  of  dynamic  effects  of  wave  and 
ship  motions. 

To  obtain  more  reliable  information  about  ship  responses,  the  present 
tendency  is  to  use  either  a physical  model  tested  in  waves  or  a mathmetical 
model  for  an  analytical  solution.  In  solving  a mathematical  model  analyti- 
cally, one  approach  is  to  use  an  analog  or  a digital  computer. 

In  the  early  1960’s,  the  David  W.  Taylor  Naval  Ship  Research  and 
Development  Center  (the  Center)  developed  the  seaworthiness  analog  computer 
(SAC).  It  is  actually  a complicated  mathematical  simulation  model  and 
consists  of  a sea  generator,  a ship  analog,  and  a hydrodynamic  force 
generator.  Output  from  the  ship  analog  is  fed  back  to  the  hydrodynamic 
force  generator  to  produce  dynamic  interaction  between  ship  and  sea.  Compu- 
tations made  to  determine  responses  of  an  aircraft  carrier,  the  Ex-USS 
ESSEX  (CVA-9) , to  a specific  wave  train  have  bfeen  in  good  agreement  with 
actual  measurements  made  on  the  ship  during  sea  trials.  Unlike  the  quasi- 
static approach,  this  method  includes  both  hydrodynamic  effects  and  dynamic 
interaction  in  the  analysis  and  provides  as  well  a realistic  representation 
of  the  ship  response  to  sea  waves  during  operations  at  sea. 

Although  SAC  was  considered  one  of  the  important  developments  toward 
realistic  analysis  in  ship  design,  investment  in  a large  analog  computer 
facility  for  solving  only  ship  response  problems  could  not  be  justified 


Andrews,  J.N.,  and  S.-L.  Chuang,  "Seaworthiness  Analog  Computer,"  David 
Taylor  Model  Basin  Report  1829  (Aug  1965).  A complete  listing  of  refer- 
ences is  given  on  page  142. 
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economically.  Since  the  Center  has  a digital  computer  facility,  utilization 
of  this  facility  is  definitely  a logical  approach  for  solving  this  specific 
problem  because  any  problem  that  can  be  solved  by  using  the  analog  computer 
can  also  be  solved  by  using  the  digital  computer.  Thus,  the  SAC  facility 
never  materialized. 

Several  unsuccessful  attempts  were  made  by  others  to  convert  SAC  to  a 
digital  computer  program;  however,  there  were  numerous  obstacles.  These 
obstacles  have  finally  been  overcome.  Results  obtained  from  the  digital 
computer  check  very  well  not  only  with  those  obtained  from  SAC  but  also 
with  those  obtained  from  model  tests  and  sea  trials.  This  computer  program 
is  named  the  structural  seaworthiness  digital  computer  program  ROSAS  (i.e., 
response  of  ship  at  sea) . 

The  program  ROSAS  in  its  present  form  has  the  capability  of  determining 
the  following: 

• Ship-hull-bending  vibratory  modes 

• Ship  rigid-  and  elastic-body  motions,  bending  moment,  shear,  and 
other  hull  responses  from  a ship  subjected  to  regular,  irregular,  discrete, 
standing,  and  other  wave  forms 

• Ship  RAO  (response  amplitude  operator) , rms  (root-mean-square) , and 
other  statistical  properties 

• Effect  of  bow-flare-slamming  in  magnifying  hull  girder  response 

• Effect  of  bottom-slamming  in  magnifying  hull  girder  response 

• Effect  of  springing*  in  magnifying  hull  girder  response 

The  listed  capabilities  are  considered  sufficient  for  use  in  the 
practical  design  of  ship  hull  structures.  While  the  present  program  is 
limited  to  head  sea  conditions,  this  limitation  will  be  overcome  in  the 
near  future  because  three-dimensional  mathematical  representations  of  sea 
and  ship  are  now  available  but  not  fully  developed. 

The  program  ROSAS  is  presented  in  this  report.  An  aircraft  carrier 
(ESSEX)  has  been  chosen  to  illustrate  some  of  the  capabilities  of  the 
program.  Comparisons  of  the  results  of  program  ROSAS,  SAC,  model  tests. 


‘Springing  is  a term  generally  applied  to  the  pseudo-steady-state  response 
of  a ship  hull  in  its  fundamental,  vertical,  vibratory  mode  due  to  synchronous 
wave  excitation.  Springing  is  often  known  to  generate  significant  hull  stresses 
in  such  ships  as  Great  Lakes  bulk  carriers,  etc.;  therefore,  it  requires 
proper  accounting  in  design  of  those  ships. 
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sea  trials,  and  other  sources  are  discussed  and  evaluated.  Detailed  pre- 
sentations of  program  ROSAS  are  given  in  the  appendixes.  Also,  methods  for 
obtaining  ship  parameters  used  for  input  to  the  program  are  given  in  the 
appendixes . 

In  writing  this  report,  it  has  been  kept  in  mind  that  the  program  can 
readily  be  used  by  the  readers  for  ship-design  applications.  However, 
because  of  the  wide  range  of  experience  represented  by  individual  users,  it 
is  impossible  to  cover  every  possible  item  needed  for  using  the  program. 


BACKGROUND 

A ship  can  develop  appreciable  hull  stress,  associated  with  transient 

vibration  or  "whipping"  of  the  ship  in  heavy  or  moderate  seas.  This  whipping 

may  be  generated  by  either  emergence  and  subsidence  of  the  bottom  and 

subsequent  impact  or  nonlinear  buoyancy  and  momentum  forces  associated  with 

bow-flare  immergence.  The  substantial  contributions  from  bow  flareup  that 

induced  whipping  stresses  in  the  hull  girder  were  vividly  demonstrated  during 
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rough  sea  trials  of  ESSEX. 

A theoretical  analysis  was  developed  at  the  Center  for  investigating 

the  whipping-response  phenomenon.  The  analysis  in  essence  utilized 

measured  or  calculated  rigid  body  motion  at  each  transverse  section  of  the 

ship  to  compute  the  instantaneous  waterline  at  each  section  as  well  as  the 

velocity  of  the  section  relative  to  the  waterline.  Next,  added  mass 

for  each  section  at  each  waterline  was  computed.  Then,  added  mass  force 
* 

at  each  section  was  computed  as  the  time  rate  of  change  of  the  momentum 
imparted  by  the  water.  This  computation  was  added  to  the  buoyancy  and 
gravity  forces  to  give  total  hydrodynamic  force.  Finally,  response  of  the 
elastic  ship  was  computed,  thus  giving  the  desired  bending  moments  and 
shear  forces. 
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Jasper,  N.H.  and  J.T.  Birmingham,  "Strains  and  Motions  of  USS  ESSEX  (CVA-9) 
During  Storms  Near  Cape  Horn,"  David  Taylor  Model  Basin  Report  1216  (Aug 
1958). 
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Using  this  procedure,  a detailed  analysis  of  the  whipping  response  of 
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ESSEX  was  made  by  using  a digital  computer.  Although  there  were  some 
discrepancies  in  details,  the  maximum  stresses  were  predicted  with  reason- 
able accuracy,  and  the  general  agreement  was  considered  good.  However, 
changes  in  hull  parameters  could  not  be  made  easily  with  this  method,  and 
hand  computation  of  the  hydrodynamic  forces  before  obtaining  a computer 
solution  was  undesirable  because  it  was  time  consuming.  In  particular,  the 
need  for  having  previous  knowledge  of  ship  motions  severely  limited  the 
choice  of  mathematical  model  that  would  be  suitable  for  design  evaluations. 
These  considerations  motivated  further  development  of  a mathematical  model 
to  be  computerized  for  easier  handling  of  the  ship  dynamic  response  problem. 

The  early  decision  was  made  on  the  basis  that  the  analog  computer  would 
be  more  suitable  than  the  digital  computer  because  the  analog  computer  had 
greater  flexibility  in  changing  values  of  ship  parameters  and  other  variables. 

In  fact,  the  Center  possessed  a passive  analog  computer  named  "network 

•I  4 

analyzer,  that  was  used  in  making  hull-vibration  calculations.  Now 

scrapped,  the  network  analyzer  was  considered  excellent  in  its  time.  The 

abandonment  of  analyzer  has  necessarily  stimulated  conversion  of  SAC  to  the 

program  ROSAS  mentioned  previously.  Descriptions  of  SAC  are  given  in 

Reference  1. 


DIGITAL  COMPUTER  MODELING 


Figure  1 shows  the  structural  seaworthiness  digital  computer  program 
ROSAS.  Three  principal  elements  that  constitute  the  program  are  the  hydro- 
dynamic  force,  the  ship,  and  the  sea. 

The  sea  subroutine  is  capable  of  simulating  regular  sinusoidal  waves, 
a wave  train  of  definite  shape  or  simply  a sinusoidal  pulse  at  a prescribed 
location.  The  response  of  the  ship  feeds  back  to  the  hydrodynamic  force 
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Andrews,  J.N.,  "A  Method  for  Computing  the  Response  of  a Ship  to  a 
Transient  Force,"  David  Taylor  Model  Basin  Report  1544  (Nov  1963). 

^McGolarick,  R.T.,  "Ship  Vibration,"  David  Taylor  Model  Basin  Report  1451; 
Figure  3-8,  p.  3-18;  Figures  A-2  and  A-3,  p.  A-3;  Table  8-2,  p.  8-10 
(Dec  1960). 


subroutine  to  produce  dynamic  interaction  between  the  ship  and  the  hydro- 
dynamic  forces.  In  case  bow  emergence  occurs,  a slamming  subroutine  com- 
putes the  bottom  slamming  forces  and  adds  them  to  the  hydrodynamic  forces 
for  computing  the  ship  responses. 


OUTPUT 


Figure  1 - Diagram  of  Structural  Seaworthiness  Digital  Computer 

Program  ROSAS 


Mathematical  representations  of  the  hydrodynamic  force,  ship,  sea,  and 
slamming  for  digital  computer  modeling  are  presented  in  the  following 
sections . 

HYDRODYNAMIC  FORCE 

The  hydrodynamic  force  consists  of  three  types:  added  mass;  buoyancy, 
including  the  Smith  correction;  and  damping.  These  forces  can  be  represented 
by  the  following  equations: 


P “ pi  + p2  + p3 


where  P is  the  total  hydrodynamic  force 


pi  " Tt  (nV  V 


is  the  added  mass  force  or  the  fluid  inertial  force 


P2  “ pA(g  + dir)-  pgAo 


CD 


(2) 


(3) 
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is  the  dynamic  buoyancy  force  or  spring  force,  and 


C(u>)  V 


(4) 


is  the  hydrodynamic  damping  force. 

The  relative  vertical  velocity  between  the  ship  and  the  sea  surface  is 


V ■ (V  - Y ) “ 3—  Y 
r dt  w dt  r 


(5) 


The  previous  equations  are  expressed  in  terras  of  a coordinate  system 
moving  longitudinally  with  a fixed  point  in  the  fluid  lamina.  If  they  are 
expressed  in  terms  of  a coordinate  system  fixed  in  the  ship,  these  equations 
can  be  approximated  as  follows,  neglecting  the  horizontal  component  of  the 
fluid  velocity  (Appendix  A of  Reference  1): 


P . = - -r- 


- If  (”v  V + u h ("v  V 

(6) 

/ c V 

pg  (A  Aq)  + PAq  + uj  3t2 

(7) 

- C(w)  V 

r 

(8) 

9Y  8Y 

— £ - u 
at  ax 

(9) 

The  added  mass  my  and  area  A are  separated  into  linear  and  nonlinear 
terms  so  that  the  effects  of  the  nonlinearities  may  be  examined  to  assess 
the  importances  of  hull-form  variations.  These  terras  are 


”v 


mQ  + m 


A “ A„ 


b,  Y + A 
1 r 


(10) 

(ID 


where  m^  is  the  added  mass  associated  with  the  still  waterline,  and  m is 
the  time-varying  portion  of  the  added  mass.  The  term  b^  Y^  is  the  rectangu- 
lar area  measured  from  the  still  to  the  instantaneous  waterline,  where  Y 


7 


I 

is  the  distance  from  the  still  to  the  actual  waterline;  A is  the  nonlinear 
portion  of  cross  sectional  area  that  produces  the  dynamic  or  nonlinear 
portion  of  buoyancy  force;  see  Figure  2. 


ACTUAL  WATERLINE 

MEAN  WATERLINE  (MWL) 

A = CROSS  SECTIONAL  AREA 
UP  TO  ACTUAL  WATERLINE 
Aq  = CROSS  SECTIONAL  AREA 
UP  TO  MEAN  WATERLINE, 
i.e.,  STILL  WATERLINE 

A = A0-b,Yr  + A 


Figure  2 - Method  Used  to  Separate  Linear  and  Nonlinear  Buoyancy  Forces 


The  term  m is  defined  by  the  following  relationships 


for  Vr  > 0 (emersion) 

(12) 

for  < 0 (immersion) 

(13) 

The  two  relationships  are  the  result  of  the  added  mass  being  different, 
depending  upon  whether  ship  is  immerging  or  emerging;  see  Figure  3. 


» 
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Figure  3 - Method  for  Determining  Added  Mass 
for  Immersion  and  Emersion 


SHIP  AND  SHIP  RESPONSE 

When  the  force  function  P (X,  t)  acts  on  the  flexible  ship,  the  equations 
governing  the  ship  response  comprise  the  following  set. 


Equation  of  Motion: 


C 


3Y‘  _3V 

3t  3X 


P 


Inertia  + damping  + shearing  = excitation 


(14a) 


Moment  Equation: 


3M 

3X 


V + I 


ii 

mz  3t 


(14b) 


Spatial  change  of  moment  - shearing  force  + rotary  inertia 
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Elastic  Equation: 


3X  _ M_ 
3X  ~ El 


(14c) 


Curvature  = bending  moment/ flexural  rigidity 


Equation  of  Bending  and  Shear  Effects: 


3Y  = V 
3X  = ” KAG 


(14d) 


Space  derivative 
of  vertical  velocity 


shearing  rate 
shear  rigidity 


+ angular  velocity 


To  discretize  the  variable  X,  21  equally  spaced  stations  are  assigned 
along  the  length  of  the  ship.  The  first  station  is  assigned  at  the  stern 
and  the  last  at  the  bow.  Twenty  half-stations  are  also  assigned,  each 
midway  between  two  stations.  The  stations  are  numbered  from  0 to  20,  and 
the  half  stations  are  numbered  from  0.5  to  19.5;  see  Figure  4. 

The  values  of  y,  V,  KAG,  and  I are  lumped  at  the  stations;  the  values 
of  Y,  M,  El,  m,  C,  and  force  P are  lumped  at  the  half-stations.  With  these 
quantities  lumped  and  with  the  distance  between  stations  denoted  by  AX,  we 
can  replace  the  derivatives  with  respect  to  X in  the  system  of  Equations 
(14a-d)  by  central  difference  quotients  to  get  a system  of  ordinary 
differential  equations.  Thus, 


d_ 

dt 


Y 


d 

d?  Yn 


d__ 

dt 


d_ 

dt 


V 

n 


(P  - (CY)  - (V  - V )/AX)/« 

n+j  n+2  n+2 


((M  - M )/AX  - V )/ (I  ) 

i ,1  n mz  n 


“-2  "+2 


EI  1 <Vi  - V'“ 
n+2 

KAG  (y  - (Y  - Y ,)/SX) 
n n . i i 


(15a) 


(15b) 


(15c) 


(15d) 
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SHIP  IS  DIVIDED  INTO  21  EQUALLY  SPACED  STATIONS 


o 


z 

o 
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Ship  Stations  Used  in  Analysis 


The  subscripts  n,  n+~«  etc.,  indicate  that  the  given  value  is  at  the 
indicated  station  or  half-station. 

These  equations  must  be  modified  for  the  end  stations.  Since  there  is 
no  shearing  force  at  the  ends  of  a ship.  Equation  (15d)  becomes 


d_ 

dt 


0 ; dT  v20 


0 


Also,  there  is  no  bending  moment  at  the  ends  of  a ship 


M 


0.5 


0 ; M 


19.5 


0 


thus  Equation  (15c)  implies 


’ Y20  = 


19 


Therefore,  Equation  (15b)  is  not  needed  for  n=0  and  n=20. 

The  system  of  ordinary  differential  equations.  Equations  (15a-d),  can 
be  integrated  numerically  by  the  Runge-Kutta  method  after  all  the  parameters 
have  been  evaluated  and  the  calculations  of  the  hydrodynamic  forces  have 
been  completed.  Calculations  of  the  hydrodynamic  forces  can  be  performed 
in  the  following  manner. 

From  Equation  (10),  the  added  mass  at  the  nth  station  is  approximated 
by  the  expression 


<Vn 


(m0)n  + 


(a,  Y ) + 

1 r n 


(a2  + 


<*3  Yr>„ 


(16) 


where  a^,  a^,  a^  are  coefficients  to  be  chosen  according  to  the  emersion  or 
immersion  of  the  ship  as  per  Equation  (12)  or  (13),  and  the  shape  of  ship 
section  at  that  station. 
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In  Equations  (5)  and  (9),  the  vertical  velocity  at  nth  station  relative 
to  the  water  surface  is  approximated  by 


«Vn+2  " <Vn- 


(17) 


The  relative  displacement  of  the  moving  waterline  with  respect  to  the 

still  waterline  is  given  by  Y = Y - Y . The  vertical  displacement  of  water 

r w 

surface  Y^  and  its  vertical  velocity  3Y^/3t  are  provided  by  a subroutine  that 
simulates  the  sea.  The  vertical  displacement  of  ship  Y is  obtained  by 
adding  the  equation  dY/dt  = Y to  the  system  of  Equations  (14).  The  sign  of 
Y^  is  taken  as  positive  when  the  ship  at  nth  station  moves  out  of  the  water 
and  away  from  the  water  surface.  The  ship  speed  is  prescribed. 

At  Station  3 Equation  (17)  is  modified,  since  for  (Y  ) ^ = Y - (Y  ) j , 

(Y  ) ^ is  not  available.  The  modified  equation  for  Station  3 is 


<Vr>3  = 


2AX  ^Yr^5  ” 


(18) 


A similar  modification  is  made  for  Station  19. 

Combining  Equations  (2),  (6),  and  (17),  the  hydrodynamic  inertial  force 
due  to  the  change  in  momentum  of  the  added  mass  ^ (m,,  V ) at  the  nth 
station  is 

<pi>»  ‘ - Tt  <"v  V„ 

■ - k (°v  V„ + » h S V» 

- - (%  If  Vn  - <Vr  h V»  + " lx 

* - <V„  - <V»  - iu  «V„« 


<"V  V* 


<V„-2» 
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(19) 


- <V„  <a.  + 2a2  Vr  + 3*3  Y;>,  <V„ 

+ «"v  Vn+2  - <"V  V„-2> 

with  the  appropriate  modifications  for  Stations  3 and  19  similar  to  Equation 
(18). 

From  Equation  (11),  the  submerged  cross  sectional  area  at  a station  is 
approximated  by  the  expression 


AaVblVb2  Yr 


The  coefficients  b^  and  b^  are  chosen  according  to  the  vertical  displace- 
ment of  the  station  relative  to  the  water  surface.  Substituting  the 
previous  expression  into  Equation  (7) , we  obtain  the  expression  for  the 
dynamic  buoyancy  force  as  follows,  i.e., 

P2  - Pg  (-  b,  Yt  + b2  Y2)  + „A0  (20) 

2 2 

The  values  of  c and  9 Y /3t  are  provided  by  the  subroutine  that  simulates 
the  sea. 

The  terms  m Y in  Equation  (14a)  and  m^  Y in  Equation  (19)  can  be 
transposed  by  adding  m^  to  m to  form  the  term  (m  + m^)  Y as  part  of  Equation 
(14a),  since  Equation  (19)  is  a part  of  Equation  (14a). 

At  the  present  state  of  the  art,  there  is  no  accurate  method  to  deter- 
mine the  damping  coefficients  for  structures  and  fluids.  The  complex 
structural  and  load  distribution  of  a ship  make  determination  of  damping 
coefficients  cumbersome.  The  best  results  that  may  be  expected  will  show 
good  correlation  between  calculated  and  test-determined  values  for  the 
fundamental  mode  of  ship  hull  only.  This  is  also  true  for  fluid  damping. 
Fortunately,  the  inaccuracy  of  the  damping  coefficient  will  not  much  affect 
the  maximum  magnitude  and  frequency  of  the  fundamental  mode  between  the 
computer  model  and  the  actual  ship.  Therefore,  only  an  approximation 
method  will  be  adopted  for  the  present  computer  program.  This  of  course  can 
easily  be  improved  later  when  a more  accurate  method  is  available. 


14 


The  total  hydrodynamic  force  is  then  the  sum  of  given  by  Equation 
(19)  for  inertial  force,  given  by  Equation  (20)  for  buoyancy  force,  and 

given  by  Equation  (4)  for  hydrodynamic  damping.  Information  about  the 
total  hydrodynamic  force  is  needed  to  integrate  the  system  of  Equations 
(15). 

SEA  GENERATION 

Three  types  of  seas  are  used  for  computer  input.  They  are  simple  har- 
monic excitations,  sinusoidal  seas,  and  a specific  discrete  wave  train. 
Simple  harmonic  excitation  is  a sinusoidal  exciting  force  applied  at  a 
prescribed  location  of  the  ship,  e.g..  Station  10.  Therefore,  it  does  not 
represent  an  actual  sea  condition  but  is  used  to  determine  frequencies  of 
the  hull  girder  at  various  modes.  The  sinusoidal  sea  is  a sinusoidal  wave 
train  moving  without  change  in  form  and  at  a constant  wave  velocity  from 
the  bow  to  the  stern  of  the  moving  ship.  This  is  approximated  by  a delay 
function  that  caused  the  wave  train  to  appear  at  points  along  the  ship  with 
a time  delay  equal  to  the  distance  from  the  bow,  divided  by  the  sum  of  ship 
speed  and  wave  velocity.  Sinusoidal  sea  excitation  permits  determination  of 
RAO,  an  important  tool  for  statistical  analysis  in  ship  design.  The 
discrete  wave  train  is  composed  of  a series  of  sinusoidal  waves  by  super- 
position to  curve  fit  and  wave  data  from  the  sea  trials.  This  is  used  to 
verify  dependability  of  program  ROSAS  by  comparing  computer  output  with 
sea-trial  test  results. 

No  random  sea  excitation  was  employed.  If  this  is  needed,  it  is 
necessary  to  start  with  statistical  representation  of  a random  sea  and  then 
to  convert  it  to  random  sea  excitation  in  the  time  domain.  From  the  random 
sea  excitation,  the  ship  responses  can  be  obtained  and  be  converted  into 
the  statistical  representation  for  the  lifetime  prediction  of  the  ship. 

The  same  results  can  be  obtained  with  response  amplitude  operators. 

Of  course,  this  is  a more  direct  and  shorter  process  than  the  method  given 
previously. 
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BOTTOM  SUMMING 


Bottom  slamming  occurs  when  the  ship  bottom  is  on  or  above  water  during 
immersion,  i.e., 


(1)  Yr  > y 

(2)  Vr  < 0 


(21) 


Both  conditions  (1)  and  (2)  must  be  satisfied  to  generate  bottom  slamming. 

Slamming  starts  at  a location  where  Y = y,  and  V^_=0.  It  ends  at  a time 

where  Y =y  with  V <0,  and  Y <y  elsewhere, 
r 1 r r 

At  any  t during  slamming,  the  impact  area  can  generally  be  assumed  to 
be  triangular  in  shape,  and  the  load  is  estimated  to  be 


Load  * Ep  = -r  p A 4.  b,  (144/2240) 
2 max  1 


where  \Jc  is  the  longitudinal  distance  from  keel  to  bilge  where  the  water 
surface  intersects  with  the  ship  bottom. 

bj  is  the  width  of  ship  bottom  at  impact 

p is  the  maximum  impact  pressure.  The  method  for  determining  p 
max  max 

is  given  in  Reference  5.  The  slamming  load  is  proportionally  added  to  two 
adjacent  stations  together  with  the  hydrodynamic  forces  for  ship  response. 


^Chuang,  S.-L.  et  al.,  "Experimental 
Structure  Slamming,"  NSRDC  Report  4653 


Investigation  of  Catamaran  Cross- 
(Sep  1975). 
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DISCUSSION  OF  RESULTS  BY  DIGITAL  METHOD 


Since  the  program  ROSAS  has  newly  been  converted  from  SAC,  it  is 
necessary  to  verify  its  feasibility  and  accuracy.  For  comparison,  ROSAS 
was  programed  with  three  excitations  the  same  as  those  used  by  SAC,  i.e., 
simple  harmonic  excitation,  sinusoidal  seas,  and  discrete  wave  trains. 
Slamming  response  is  added  to  the  program.  In  addition,  RAO's  for  the  ship 
are  also  obtained  and  are  compared  with  other  methods. 

Since  sea  trials  were  made  with  ESSEX,  which  was  simulated  on  SAC,  the 
ship  was  used  to  test  the  performance  of  the  program  ROSAS  also.  The 
structural  and  hydrodynamic  parameters  that  describe  ESSEX  are  taken  from 
Reference  1.  To  facilitate  the  use  of  the  program.  Appendix  A is  provided 
for  determining  these  parameters. 

SIMPLE  HARMONIC  EXCITATION 

Vibration  modes  of  the  ESSEX  hull  were  observed  during  sea  trials. 

Thus  it  has  been  possible  to  check  the  program  by  comparing  vertical  bending 
modes  obtained  from  simple  harmonic  excitations  of  the  computer  model  with 
those  of  the  full-scale  ship.  The  tests  also  consist  of  comparing  the 
frequencies  of  fundamental  bending  modes  by  ROSAS  with  those  by  GBRC  (the 
general  bending  response  code).*’  and  by  SAC.  The  frequency  of  a fundamental 
mode  was  determined  using  the  program  ROSAS  by  searching  for  the  frequency 
of  a point  of  sinusoidal  exciting  force  that  produced  the  largest  response. 

Three  types  of  test  were  made,  represented  as  follows: 

Case  1 - Only  ship  structural  mass  was  used;  no  hydrodynamic  forces 
were  applied. 

Case  2 - Added  mass  was  added  to  structural  mass;  however,  no  hydro- 
dynamic  buoyancy  force  was  applied. 

Case  3 - Added  mass  was  added  to  structural  mass,  and  hydrodynamic 
buoyancy  force  was  applied. 


^Henderson,  F.,  "Transient  Response  Calculation  in  the  Frequency  Domain 
with  General  Bending  Response  Program  (GBRP),"  NSRDC  Report  3613  (Feb  1971). 
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Neither  structural  nor  hydrodynamic  damping  has  been  added  for  the  three 
cases  because  the  damping  force  does  not  influence  or  affect  the  frequency 
of  fundamental  mode  very  much  in  actual  hull  vibration  of  the  ship. 

Analog  computer  results  are  available  only  for  Cases  2 and  3;  sea  trial 
results  also  are  available  for  Case  3.  For  Case  3 only  the  linear  part  of 
the  buoyancy  force  could  be  simulated  with  GBRC.  For  all  three  cases,  the 
ship  speed  was  zero,  and  calm  seas  were  used.  Frequencies  in  hertz  for  the 
fundamental  mode  of  the  ship  hull  obtained  from  various  methods  are  com- 
pared as  follows: 


Case 

ROSAS 

GBRC 

SAC 

Sea  Trials 

1 

1.043  Hz 

1 .043 

- 

- 

2 

0.742 

0.750 

0.734 

- 

3 

0.749 

0.763 

0.744 

0.825 

Frequencies  determined  by  digital  simulation  of  ROSAS  agree  with  those  deter 
mined  by  the  other  simulations  within  2 percent.  However,  the  frequency 
determined  by  ROSAS  is  about  91  percent  of  that  obtained  from  the  sea  trial. 
The  value  of  0.825  Hz  was  calculated  from  the  record  given  in  Figure  5a  of 
Reference  2.  This  discrepancy  in  frequency  is  considered  reasonable  for 
full-scale  measurement  at  sea. 

STEADY-STATE  SINUSOIDAL  WAVE  EXCITATION 

The  actual  regular  sea  wave  form  can  generally  be  represented  to  a 
close  approximation  by  a sinusoidal  wave,  which  is  much  easier  to  handle 
mathematically  than  the  usual  approximation  by  a trochoidal  form.  Therefore 
for  this  type  of  test,  the  sea  was  represented  by  a sinusoidal  wave  train 
moving  at  a constant  wave  velocity  from  the  bow  to  the  stern  of  the  ship. 

The  theoretical  wave  velocity  c is 


c - g/w 


which  generally  agrees  with  the  values  obtained  from  observations  at  sea. 


The  test  results  for  this  type  of  excitation  were  available  only  in 
Reference  1,  i.e.,  by  SAC.  Unfortunately,  only  the  linear  analysis  was 
performed  for  this  type  of  excitation.  The  ship  responses  reported  in 
Reference  1 were  the  vertical  displacement  of  the  ship  at  a station  relative 
to  the  surface  of  the  sea,  the  pitch  angle  of  the  ship,  the  hydrodynamic 
force  acting  at  a station,  and  the  bending  moment  at  a station.  The  test 
results  for  Case  6 of  Reference  1 and  ROSAS  are  compared  in  Table  1.  In  this 
case,  0.35  rad/s  of  the  wave  frequency  and  16  knots  of  the  ship  speed  were 
programed . 


TABLE  1 - RESPONSE  TO  SINUSOIDAL  WAVE  TRAIN* 


Station** 

Phase  Angle*** 

Amplitude 

Digital 

Analog 

Digital 

Analog 

Wave  Height  in  Feet 

3 

147 

145 

10 

9.74 

11 

71 

80 

10 

9.97 

19 

0 

0 

10 

9.88 

Relative  Displacement 

3 

167 

114 

1.53 

2.29 

in  Feet 

7 

247 

283 

3.04 

1.52 

11 

230 

270 

2.42 

1.21 

15 

107 

87 

2.72 

2.58 

17 

84 

79 

5.82 

5.91 

19 

72 

74 

9.65 

9.81 

Pitch  Angle  in 
Degrees 

10.5 

9 

.3 

2.02 

1.97 

Hydrodynamic  Force 

3 

317 

285 

162 

281 

in  Tons 

15 

267 

242 

289 

225 

17 

248 

242 

289 

275 

19 

239 

239 

135 

135 

Bending  Moment 
in  Foot-Tons 

4 

247 

275 

23.9-103 

3 

37.6-103 

8 

252 

263 

104-10 

126-10 

10 

268 

257 

121  * 103 

135* 103 

12 

244 

252 

1 12  * 103 

1 16  * 103 

16 

237 

240 

37.5-103 

35.2* 103 

♦Linear  analysis:  16  knots  of  ship  speed,  0.35  rad/s  of  wave  frequency. 
♦♦Station  0 is  at  stern;  Station  20,  at  bow. 

♦♦♦Angle  given  is  the  relative  phase  of  the  measured  quantities  with  respect 
to  wave  position  at  the  bow. 
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The  values  obtained  from  ROSAS  show  trends  similar  to  the  values 
reported  for  SAC  and  are  of  the  same  order  of  magnitude.  A trend  pointed 
out  in  Reference  1,  and  apparent  in  ROSAS  results,  is  that  the  relative 
displacement  is  large  at  the  bow  and  small  at  the  stern,  and  the  phase  angle 
of  the  relative  displacement  at  the  stern  is  close  to  that  of  the  wave. 

The  steady-state  sinusoidal  wave  excitation  is  a very  important  tool 
for  analyzing  ship  responses.  Further  application  of  this  method  will  be 
discussed  and  evaluated  in  the  section  about  response  amplitude  operators. 

DISCRETE  WAVE-TRAIN  EXCITATION 

For  this  kind  of  test,  the  surface  of  the  sea  was  represented  by  an 

approximation  to  a discrete  wave  train  recorded  during  ESSEX  sea  trials; 

2 

see  Figure  5.  Wave  height,  pitch  angle,  and  midship-bending  stress  were 
recorded  at  the  same  time.  The  discrete  wave  record  of  the  sea  trials 
was  so  selected  that  the  ship  produced  whipping  of  the  hull  girder. 


Figure  5 - Actual  Records  for  Ex-ESSEX  (CVA-9)  Sea  Trials 
(Figure  5a,  Reference  2) 
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The  approximated  wave  heights  for  both  ROSAS  and  SAC  were  smoothly  con- 
nected to  a long  period  of  steady  sinusoidal  waves  to  avoid  extraneous 
whipping  excitation.  Thus,  the  approximations  had  the  same  general  shape 
as  the  recorded  large  waves  but  were  different  in  details. 

Figure  6 compares  wave  heights,  pitch  angles,  and  midship  bending 
moments  obtained  from  ROSAS  and  sea  trials;  Figure  7 compares  similar  results 
obtained  from  ROSAS  and  SAC.  As  expected,  the  ship  responses  recorded  during 
the  sea  trials  and  computed  by  ROSAS  and  SAC  are  similar  in  character  but 
different  in  details.  The  characteristic  common  to  all  is  that  the  large 
discrete  wave  generated  large  bow  immersions  to  excite  whipping  of  the  hull 
girder.  Results  show  good  agreement  In  maximum  magnitudes  among  them  in 

ship  responses.  However,  in  the  sea  trial  data,  a previous  excited  whipping 
was  not  quite  damped  out  before  the  next  excitation  began.  Since  the 
damping  coefficient  used  in  the  digital  program  was  not  determined  from  an 
actual  ship,  the  excited  whippings  were  damped  out  at  different  rates  for 
the  ship  and  the  computer  model. 

. It  was  evident  that  the  ship  was  excited  when  the  bow  was  pitched 
steeply  down  to  the  high  wave.  Whipping  was  obviously  due  to  the  pronounced 
bow  flare  of  the  ship  section,  resulting  in  an  impulse  at  the  ship  bow.  Bow 
flare  is  not  the  same  as  bottom  slamming,  even  though  both  types  of  impulse 
would  generate  whippings  of  the  hull  girder.  Eottom  slamming  is  more  common 
than  bow  flare  for  most  ships,  and  ROSAS  in  its  present  form  is  also  pro- 
gramed for  bottom  slamming,  which  will  be  discussed  later. 

RESPONSE  AMPLITUDE  OPERATORS 

The  irregular  sea  surface  may  be  represented  by  the  sum  of  a great 
number  of  small-amplitude  sine  waves  having  different  directions  and 
periods.  (Wave  length  and  period  have  a fixed  relation.)  Ship  response  to 
an  irregular  seaway  may  be  represented  by  the  sum  of  the  ship  responses  to 
the  simple  sine  wave  components.  This  linear  superposition  of  random  wave 
theory  is  known  as  the  energy  spectrum  analysis  and  applies  not  only  for 
ship  responses  to  random  sea  waves  but  also  to  any  form  of  energy  such  as 
heat,  electricity,  light,  sound,  and  many  mechanical  phenomena. 


21 


Figure  6 (Continued) 


Figure  6b  - Comparisons  Between  ROSAS  Output  and  Sea  Trial  Data 
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Figure  7 - Response  to  Discrete  Wave  Train-Digital  Program  and 

Analog  Computer 
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Even  though  the  theory  seems  to  be  complex.  It  may  comfort  the  naval 
architect  and  ship  designer  to  know  that  this  powerful  tool  can  be  applied 
in  ship  design  without  a detailed  understanding  of  the  unusual  mathematics. 
Any  seaway  can  be  characterized  simply  by  a "wave  energy  spectrum."  When 
a squared  RAO  curve  is  multiplied  by  the  wave  spectrum,  a ship  response 
spectrum  is  obtained.  This  can  be  pitch,  heave,  bending  moment,  or  any 
other  ship  response.  To  obtain  the  response  amplitude  operator:  First, 

apply  one  sine  wave  at  a time  to  the  ship  to  get  the  ship  response.  Second, 
divide  each  ship  response  by  the  single  sine  wave;  the  result  is  RAO.  This 
operation  usually  requires  the  physical  model  test  under  regular  or  irregular 
sea  conditions;  now,  however,  it  can  be  obtained  directly  by  the  program 
ROSAS . 

Figure  8 compares  RAO's  for  pitch  angle  and  bending  moment  of  ESSEX 
among  the  physical  model  tests, ^ the  program  SCORES , ^ and  ROSAS  results. 

Very  good  agreement  is  shown.  The  SAC  is  capable  of  obtaining  RAO's. 

However,  it  was  not  included  in  Reference  1. 

BOTTOM  SLA’ MING 

The  ship  chosen  for  the  present  example  has  deep  draft,  and  its  bow 
does  not  come  out  of  the  water  at  all.  As  an  illustration,  the  ship  draft 
was  drastically  reduced  in  the  program  so  that  bottom  slamming  occurred 
during  ship  operations,  figure  9 shows  bottom  slamming  output  from  the 
computer;  nonlinear  terms  have  been  omitted  in  the  program  to  avoid  bow-flare 
slamming.  Since  no  actual  bottom-slamming  data  have  been  obtained  from  the 
sea  trials  of  ESSEX,  no  comparison  can  be  made  at  this  time. 


^ Kaplan,  P.  et  al.,  "An  Investigation  of  the  Utility  of  Computer  Simula- 
tion to  Predict  Ship  Structural  Response  in  Waves,"  Ship  Structure  Committee 
Report  SSC-197  (Jun  1969). 
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Figure  9 - Response  to  Bottom  Slamming 
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SUMMARY  AND  CONCLUSIONS 


Experimenting  with  a physical  model  in  the  towing  tank  as  a step  in  the 
procedure  for  advanced  ship  design  has  been  proved  more  realistic  and  reliable 
than  the  quasi-static  balance  method.  Also,  newly  developed  analytical 
methods  have  been  found  to  provide  more  realistic  estimations  of  maximum 
wave-induced  hull  girder  bending  moment  than  does  the  quasi-static  balance 
method.  Thus  development  of  a validated  computer  method  is  of  considerable 
interest  to  the  practicing  naval  architect. 

There  are  two  major  types  of  computer,  namely,  analog  and  digital. 

Any  mathematical  problem  that  can  be  solved  by  the  analog  computer  can 
usually  be  solved  by  the  digital  computer,  and  vice  versa.  In  searching 
for  a computer  method  in  ship  design,  SAC  was  first  developed  by  the  Center. 
The  degree  of  correlation  between  computer  results  and  sea  trials  of  an 
aircraft  carrier  demonstrated  that  SAC  could  be  used  as  well  as  the  physical 
model  test  for  design  studies  of  ships.  However,  since  only  the  digital 
computer  facility  has  been  available  at  the  Center,  SAC  never  materialized. 
Thus,  efforts  have  been  directed  toward  converting  the  SAC  program  to 
digital  computer  use  under  the  program  ROSAS. 

Like  SAC,  the  program  ROSAS  has  features  suitable  for  ship  design. 

It  provides  a means  for  measuring  applied  forces,  displacements,  and  struc- 
tural responses  at  many  points  along  length  of  the  ship.  This  computer 
method  provides  a more  complete  analytical  representation  than  computations 
made  by  other  methods  used  heretofore,  either  theoretical  or  empirical. 
Refinements  for  the  computer  analysis  as  presented  in  this  report  would  be 
necessary  only  if  an  increase  in  accuracy  is  desired.  However,  several 
features  should  be  added  to  program  ROSAS  to  improve  its  present  format, 
i.e. , 

1.  An  accurate  method  for  determining  both  structural  and  hydrodynamic 
damping  coefficients  is  needed.  Unfortunately,  one  is  still  not  available. 

2.  The  present  program  is  limited  to  the  head  sea  condition.  The 
program  will  be  more  flexible  and  like  the  actual  operation  of  a ship,  in 

the  seaway,  if  its  capability  can  be  increased  from  two-  to  three-dimensional 
form.  This  improvement  can  be  accomplished  by  further  development  of  the 
program. 
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3.  Capability  for  investigating  bottom  slamming  has  been  incorporated 
in  the  program.  However,  head-on  wave  impact,  or  any  other  form  of  wave 
impact,  has  not.  This  also  needs  further  development. 

This  study  has  been  confined  to  checking  the  feasibility  and  workability 
of  the  program  ROSAS  after  its  conversion  from  SAC.  Comparisons  made  among 
results  obtained  from  both  SAC  and  ROSAS  as  well  as  from  the  sea  trials, 
physical  model,  and  other  methods  lead  us  to  conclude  confidently  that  the 
program  ROSAS  as  it  is  will  be  an  extremely  useful  tool  for  advanced  ship 
research  and  design.  Of  course,  there  is  room  for  improvement,  as  described 
previously. 

The  user's  manual  is  provided  in  the  appendixes.  This  includes  the 
method  for  determining  ship  parameters  and  hydrodynamic  forces  and  the 
complete  computer  program  of  an  illustrated  example  used  in  the  report. 
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APPENDIX  A - INPUT  DATA  FOR  COMPUTER  MODEL 


At  present,  ROSAS  is  still  in  a preliminary  stage  of  development.  The 
original  concept  of  this  computer  model  was  to  have  it  supply  a new  ship 
design,  specifying  the  lines  and  mass  elastic  parameters  of  a ship,  which 
would  be  simulated  on  the  computer  for  various  environmental  conditions. 

The  hydrodynamic  and  buoyancy  forces  would  then  be  computed  automatically 
and  supplied  to  various  positions  along  the  ship.  This  can  easily  be 
accomplished  in  time.  Presently,  the  user  has  to  either  calculate  all  these 
values  by  longhand  or  write  his  own  program. 

Procedures  for  calculating  parameters  of  ships  are  given  in  detail  in 
Reference  8.  The  required  parameters  for  computer  input  are: 

1 . Ship  mass  m 

2.  Bending  stiffness  El 

3.  Mass  moment  of  inertia  I 

mz 

4.  Shear  stiffness  KAG 

5.  Added  mass  m^ 

6.  Buoyancy  force 

7.  Smith  correction  factor  pA^ 

8.  Structural  damping  coefficient  C 

9.  Hydrodynamic  damping  C(w).  All  calculations  are  based  on  21  ship 
stations,  with  Stations  0,  I,  2,  ...  , 20;  Half-Stations  1/2,  1 1/2,  . . . 
19  1/2;  rudder  post  Station  0;  bow  Station  20.  Procedures  for  calculating 
these  parameters  are  given  briefly  as  follows. 

CALCULATION  OF  SHIP  MASS 

The  total  weight  of  each  section  — including  hull  structure,  rudder, 
machinery,  ballast,  fuel,  cargo,  etc.  — is  assumed  to  be  concentrated  either 
at  the  center  of  that  section  or  at  the  half-station  point.  Either  weight 
distribution  curves  or  a list  of  weights  can  be  obtained  from  the  shipyard 
or  the  ship  design  office.  For  a new  ship,  it  may  be  obtained  either  by 
comparing  the  weight  distribution  of  a sister  ship  or  by  estimation.  All 


Q 

Bruck,  H.A.,  "Procedure  for  Calculating  Vibration  Parameters  of  Surface 
Ships,"  NSRDC  Report  2875  (Oct  1968). 
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the  weight  added  together  shall  be  the  displacement  of  a ship  under  any 
loading  conditions. 

The  procedure  for  calculating  ship  mass  distribution  is  as  follows: 

1.  Obtain  a weight  distribution  curve.  This  must  be  the  total  weight 
of  the  ship.  If  a list  of  weights  is  provided,  construct  a weight  distribu- 
tion curve. 

2.  Divide  the  weight  distribution  into  20  equal  sections  by  drawing  a 
perpendicular  line  at  each  station  point;  then,  find  the  area  under  the 
curve  for  each  section.  This  area  is  the  weight  of  that  section.  The 
weight  is  assumed  to  be  located  at  the  center  of  each  section,  i.e.,  at  the 
half-station  point. 

3.  Make  a table  with  three  columns  as  indicated  in  Table  2.  In  the 

first  column  list  the  half-stations  from  1/2  to  19  1/2,  in  the  second  list 

the  weight  just  obtained  from  the  curve,  and  in  the  third  list  the  masses  m. 

The  mass  is  calculated  by  dividing  each  weight  by  the  value  of  g,  i.e.,  32.2 
2 

ft/s  , and  then  dividing  the  quotient  by  the  length  of  each  section  to 
obtain  mass  per  unit  length  of  the  section. 


TABLE  2 - SHIP  MASSES 


Weight  W 

Mass  m 

Station 

tons 

2 2 
ton-s  /ft 

1/2 

1 1/2 

19  1/2 

Note:  m = W/g/AX 
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CALCULATION  OF  BENDING  STIFFNESS 


The  value  of  Young's  modulus  E can  easily  be  found  from  the  materials 
handbook.  The  vertical  area  moment  of  inertia  I for  a ship  section  is 
calculated  by  summing  the  area  moment  of  inertia  of  the  deck,  shell,  double 
bottom,  and  continuous  longitudinal  members  that  comprise  that  section;  it 
is  determined  about  the  horizontal  neutral  axis,  which  is  parallel  to  the 
ship  baseline  through  the  centroid  of  that  section,  with 

I = E (IQ  + ad2)  (22) 

where  Iq  is  the  area  moment  of  inertia  of  a structural  member  about  its 
own  neutral  axis 

a is  the  area  of  a structural  member 

d is  the  distance  from  the  neutral  axis  of  the  structural  member  to 
the  reference  axis. 

The  procedure  for  calculating  the  vertical  area  moment  of  inertia  I is 
as  follows: 

1.  The  decks  and  shell  of  a ship  are  usually  constructed  by  using 
several  plates  of  different  thickness  welded  or  riveted  together.  Find  the 
areas  of  deck  and  shell  plates,  longitudinals,  etc.  List  these  areas  in  a 
table  such  as  Table  3. 

2.  Use  the  baseline  of  the  ship  as  the  reference  axis. 

3.  Measure  and  list  the  distance  d of  each  item  from  its  centroid  to 
the  baseline. 

2 

4.  Multiply  a by  d and  by  d ; calculate  In,  and  list. 

U 2 2 

5.  Calculate  d^  = E ad/E  a,  and  1=2  (I  1^  + E ad  - d^  E a);  where 
is  the  distance  of  neutral  axis  of  ship  section  from  the  baseline,  and  I 

is  the  total  vertical  area  moment  of  inertia  of  ship  section. 

6.  Repeat  this  procedure  for  all  sections. 

7.  Plot  ell  values  of  I against  ship  length  and  fair-in  the  curve. 
Locate  tne  half-station  points,  read-off  the  I values  at  half-stations,  and 
list. 

8.  The  El  values  are  simply  I multiplied  by  the  constant  E,  which  is 
6 2 

1.93  * 10  ton/ft  for  steel. 
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Not  counted  in  the  calculations  are  superstructures,  discontinuous 
longitudinals,  hatchways,  deck  plating  between  two  hatches,  and  transverse 
members.  However,  welded  intercostal  members  with  no  lightening  holes 
should  be  included. 

I is  usually  omitted  in  calculating  horizontal  plates  because  I 

w 2 w 

values  are  very  small,  compared  to  ad  values. 


CALCULATION  OF  MASS  MOMENT  OF  INERTIA 

The  mass  moment  of  inertia  I of  a AX  section  of  a ship  about  a rotating 

mz 

axis  through  its  center  of  gravity  parallel  to  z-axis  (horizontal  athwart- 
ship  direction)  consists  of  contributions  from  the  ship  mass  and  the  added 
mass  of  fluid,  i.e.. 


Total  I = I 1 ,,  + I ] „ . + I ] 

mz  mz  hull  mz  superstructure  mz  added  mass 

8 

The  added  mass  moment  of  inertia  may  be  neglected.  For  the  hull,  the 

actual  mass  in  a length  AX  is  assumed  to  be  uniformly  distributed  and  is 

bounded  by  the  main  deck  and  the  shell.  The  total  I of  a station  is 

mz 

given  by  the  equation 


mz 


m'r 


(23) 


where  m is  the  mass  per  unit  length  of  a ship  section,  and  r is  the  radius 
of  gyration  given  by  the  equation 


r2  = (d2  + (AX)2)/12 


(24) 


with  d the  depth  of  ship  to  main  deck.  If  the  ship  deviates  from  standard, 

i.e.,  having  its  flight  deck  above  the  main  deck  or  a long  superstructure, 

detailed  calculation  to  obtain  I is  recommended. 

mz 


CALCULATION  of  ship  shear  stiffness 


The  ship  hull  is  similar  to  a box  girder  with  its  uppermost  continuous 
deck  and  bottom  as  flanges  and  its  side  shell  as  webs.  In  vertical  vibra- 
tion, the  shear  V is  essentially  carried  by  the  side  shell  and  any  continu- 
ous longitudinal  bulkheads.  The  shear  stress  is  approximately  uniform  over 
the  area  of  vertical  plating  A^.  This  gives 

KAG  = A G (25) 

v 

where  K is  the  constant,  depending  on  the  shape  of  ship  hull  cross  section 

A is  the  cross  sectional  area  of  ship  hull 

5 2 

G is  the  shear  modulus  of  elasticity  (G  = 7.72  x 10  ton/ft  for 
steel) 

A^  is  the  cross  sectional  area  of  ship  hull  for  vertical  plating  only. 
CALCULATION  OF  ADDED  MASS 

A body  moving  with  unsteady  motion  in  an  ideal  fluid  is  subject  to 
hydrodynamic  pressure  forces  which  are  proportional  to  instantaneous 
acceleration.  The  resultant  force  acting  on  the  body  is  directed  opposite 
to  that  of  the  acceleration  in  the  same  manner  as  if  an  additional  mass 
were  attached  to  the  system.  It  is  therefore  called  added  mass  — sometimes 
virtual  or  hydrodynamic  mass. 

For  an  arbitrary  cross  sectional  ship  form,  it  is  customary  to  calcu- 
late the  added  mass  per  foot  of  length  by  using  the  added  mass  values  per 
foot  of  length  of  an  infinite  length  of  plate  with  width  b.  This  value  is 
amended  by  correction  factors  C^  and  J,  developed  by  various  authors  to 
allow  for  the  finite  length  of  an  actual  ship  and  the  departure  of  its 
cross  sectional  shape  from  a rectangle.  The  formulas  used  for  calculating 
added  mass  per  unit  length  are  as  follows.  For  ship  emergence  (Figure  3) 

"V  = m0  + mi  = n J CV  pb2  (26) 

I 

For  ship  immergence 

% “ m0  + m2  " f J CV  pb2  (27> 
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Here  J is  the  longitudinal  coefficient,  depending  on  the  ship  length-to-beam 
ratio  L/2b,  and  is  given  in  Figure  10.  The  added  mass  coefficient  is  C^, 
depending  on  the  ship  sectional  area  coefficient  3 and  the  beam-to-draf t 
ratio  2b/d,  and  is  given  in  Figure  11.  Equations  (26)  and  (27)  are  the 
added  mass  for  both  port  and  starboard  sides  and  do  not  need  to  be  multi- 
plied by  two  again. 

As  indicated  in  Figure  3,  the  water  surfaces  at  the  ship  boundary  are 
different  during  ship  emergence  and  immergence.  This  causes  the  difference 
in  added  masses,  mainly  because  the  half-width  used  in  the  previous  equations 
is  b for  the  emergency  and  -j  b for  the  immergence,  due  to  rising  of  the 
water  surface  at  the  boundary. 

Calculation  of  added  mass  used  for  program  ROSAS  is  divided  in 
two  parts.  For  sections  with  no  nonlinear  terms  considered,  assume  that 
they  are  wall  sided  and  that  only  the  added  mass  at  the  still  waterline  is 
calculated  by  using  Equation  (27).  For  sections  with  nonlinear  terms  con- 
sidered, the  added  mass  at  each  1 ft  of  draft  interval  is  calculated  by 
Equation  (26)  for  emergence  and  Equation  (27)  for  immergence.  The  procedure 
used  for  calculating  the  added  mass  with  nonlinear  terms  is  listed  as 
follows : 

1.  Obtain  a body  plan  of  the  ship  which  shows  the  cross  sectional 
profiles  for  21  stations. 

2.  Obtain  a Bonjean  curve  of  areas  for  21  stations.  (If  not  available, 
make  one.) 

3.  At  each  station,  obtain  half-breadth  b and  cross  sectional  area  A 
for  every  draft  d at  1-ft  intervals;  where  b is  from  the  body  plan,  and  A 
is  from  the  Bonjean  curve. 

4.  Calculate  3 * A/(2bd),  L/2b,  and  2b/d;  obtain  C^  and  J from  Figures 
10  and  11. 

5.  Use  Equations  (26)  and  (27)  to  calculate  the  added  mass  m^  + m^ 
and  m^  + m^  for  ship  emergence  and  immergence. 

6.  Calculate  the  added  mass  mg  associated  with  a still  waterline  by 
Equation  (27)  as  if  the  added  mass  has  no  nonlinear  term. 

7.  Obtain  the  nonlinear  added  mass  terms  m^  and  m^.' 
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Figure  10  - Curve  for  Estimating  Coefficient  J Used  in 
Added  Mass  Evaluation 


Figure  11 


Curves  for  Estimating  Coefficient  C Used 

V 

in  Added  Mass  Evaluation 
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8.  Approximate  and  m2  into  a power  series  by 


m = a,  Y + a Y2  + a,  Y3 
1 1 r 2 r 3 r 


»2  ' 'l  Yr  + c2  Y?  + '3  Yr 


(28) 

(29) 


where  a ^ , a,,  a.^,  c^,  c and  are  arbitrary  constants  to  be  determined, 
e.g.,  as  given  in  Reference  9. 

9.  The  total  added  mass  term  for  each  section  is  given  by  Equation 

(16) 


(Vn 


(m0}n  + 


(a,  Y ) + 

1 r n 


(a  Y2)  + 

2 r n 


<*3  Yr>» 


(30) 


for  emersion,  and 


(Vn 


<"0>n  + <C1  Vn  + '<=2  Yr>„  + 


<C3  Yr>„ 


(31) 


for  immersion. 

CALCULATION  OF  BUOYANCY  FORCE 

The  expression  for  the  dynamic  buoyancy  force  is  given  by  Equation  (20), 
in  which 

- Pgb } AX/AX  (32) 

is  the  buoyancy  spring,  and  b^  is  illustrated  in  Figure  2.  The  value  of 
bj  can  be  obtained  either  from  the  ship  body  plan  or  from  the  offset. 

In  calculating  buoyancy  force,  the  cross  sectional  area  to  the  actual 
waterline  is 

A - Aq  - bj  Y^  + A (33) 


^Carnahan,  B.  et  al. , "Applied  Numerical  Methods,"  Chapter  1,  John  Wiley 
& Son  Inc.,  New  York  (1969). 
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The  buoyancy  force  per  unit  length  of  ship  is  then 


PgA  = Pg  (Aq  - Yr  + A)  (34) 

The  nonlinear  buoyancy  force  per  unit  length  of  ship  becomes 

PgA  = Pg  (A  - AQ)  + 1^  Yr  (33) 

where  A and  A^  are  obtained  from  the  Bonjean  curve;  thus,  algebraic  expres- 
sions can  be  determined  in  the  form  of 

PgA  = b2  Y^  pg  (36) 

for  the  nonlinear  buoyancy  force  in  Equation  (20) . 

SMITH  CORRECTION  FACTOR 

The  Smith  correction  factor  (EOF)  pA^  is  part  of  the  dynamic  buoyancy 
force  given  in  Equation  (20).  The  value  of  A^  can  be  obtained  as  before  by 
the  Bonjean  curve. 

STRUCTURAL  AND  HYDRODYNAMIC  DAMPING  COEFFICIENTS 

Evaluation  procedures  for  determining  damping  of  a ship  seem  uncertain 
at  the  present  time.  When  a ship  is  oscillating  on  water,  four  types  of 
damping  factors  are  generated,  namely, 

1.  Water  Friction 

2.  Generation  of  a Pressure  Wave 

3.  Generation  of  a Surface  Wave 

4.  Structural  Damping  Force.  The  first  three  types  generate  the 
hydrodynamic  damping  force.  Generation  of  surface  waves  and  the  structural 
damping  force  are  the  main  sources  of  damping.  McGoldrick  (Reference  4, 

Table  8-2)  mentioned  from  the  analysis  of  many  data  about  'full-scale  experi- 
mental work  that  damping  in  ship  vibration  appears  to  increase  with  frequency 
and  the  value  of  (C  + C(u))/mguj;  where  (C  + C(w))  is  the  ship  damping  coef- 
ficient for  the  sum  of  hydrodynamic  and  structural  damping,  mg  is  the  ship 
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mass  per  unit  length,  and  w is  the  frequency  in  radians.  He  gave  0.034  as 

the  mean  value  of  (C  + C(w))/m  w for  all  modes  of  ship  vibration. 

s 

The  rigid  body  motion  of  a ship  mainly  contains  hydrodynamic  damping 
in  the  low-frequency  region.  Determination  of  the  hydrodynamic  damping 
coefficient  C(w),  which  depends  on  the  shape  of  the  cross  section  of  the 
ship,  will  be  given  later  in  the  working  example. 

INPUT  DATA  FOR  ESSEX 

ESSEX  has  been  used  to  test  ROSAS  because  results  obtained  from  ROSAS 

can  be  readily  compared  with  those  obtained  from  SAC,^  the  model  test,^  the 
2 7 

sea  trials,  and  program  SCORES.  The  cellular  divisions  used  in  analyzing 

ESSEX  are  shown  in  Figure  4.  Masses  of  the  ship  m are  lumped  at  20 

equally  spaced  half-station  points  at  intervals  of  41  ft,  and  the  bending 

rigidity  El  is  evaluated  at  the  same  points.  These  data  are  recorded  in 

Table  4.  The  mass  moment  of  inertia  I and  the  shear  rigidity  KAG  are 

mz 

evaluated  at  21  equally  spaced  stations  and  are  recorded  in  Table  5. 

Figure  4 also  shows  how  the  hydrodynamic  forces  are  applied  to  the 
lumped  model  of  the  ship.  The  hydrodynamic  forces  are  evaluated  at  nine 
stations  — 3,  5,  7,  9,  11,  13,  15,  17,  and  19.  At  four  stations  — 3,  15, 
17,  and  19  — nonlinear  buoyancy  and  added  mass  effects  are  included.  The 
hydrodynamic  forces  are  equally  distributed  to  either  two  or  three  half- 
station points  in  order  to  obtain  a more  uniform  force  distribution. 

The  linear  hydrodynamic  properties  used  in  the  analysis  are  listed  in 
Table  6.  Values  apply  to  a ship  in  calm  water  at  a draft  of  28.5  ft. 

The  linear  added  mass  m^  for  each  station  is  equal  to  ^ J p b^  by 

Equation  (27)  and  is  listed  in  Table  7.  The  values  for  added  mass  are 

lumped,  extending  over  the  ship  length  from  Station  (n  - t-)  to  Station  (n  + 

1 2- 
— ) . Values  for  added  mass  listed  in  Table  6 come  from  Table  7.  The  value 

for  nig  , for  example,  is 
s 
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TABLE  4 - STRUCTURAL  MASS  AND  BENDING  RIGIDITY 


m 

-9 

El'  10 

Station 

2 2 

ton-sec  /ft 

c 2 

ton-f- 

0.5 

0.45467 

5.05075 

1.5 

0.74401 

7.76725 

2.5 

0.84735 

12.31675 

3.5 

1.13281 

18.30495 

4.5 

1.70245 

27.04600 

5.5 

2.10287 

36.95395 

6.5 

2.20362 

44.24075 

7.5 

2.14550 

49.67695 

8.5 

2.09512 

55.16235 

9.5 

2.10158 

58.75385 

10.5 

2.04374 

59.00065 

11.5 

1.99308 

50.67175 

12.5 

1.94270 

37.47675 

13.5 

1.85357 

33.20715 

14.5 

1.76574 

34.4828 

15.5 

1.65465 

28.64295 

16.5 

1.35756 

19.27405 

17.5 

0.87060 

13.65365 

18.5 

0.54122 

9.82855 

19.5 

0.36426 

7.4482 

TABLE  5 - MASS  MOMENT  OF  INERTIA  AND  SHEAR  RIGIDITY 


Station 

-3 

I -10 
mz 

KAC-10"5 

„ 2 
ton-sec 

ton 

0 

0.02686 

13.3987 

I 

0.25408 

16.3673 

2 

0.41905 

24.8485 

3 

0.61563 

35.3144 

4 

0.83089 

47.7022 

5 

1.01557 

60.5613 

6 

1.15716 

71.4286 

7 

1.26788 

77.6515 

8 

1.33742 

78.3190 

9 

1.34124 

75.0916 

10 

1.29996 

71.8039 

11 

1.23465 

69.6686 

12 

1.16907 

70.2055 

13 

1.06159 

75.2984 

14 

0.91029 

81.5109 

15 

0.73649 

73.2143 

16 

0.54697 

40.0000 

17 

0.35450 

24.5509 

18 

0.20379 

18.5520 

19 

0.13025 

14.3106 

20 

0.08431 

12.6935 
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TABLE  6 - LINEAR  ADDED  MASS,  BUOYANCY 
AND  SMITH  CORRECTION  FACTORS 


Station 

mo 

s 

pAo 

2 2 

ton-sec  /ft 

ton/ f 

2 2 

ton-sec  /ft 

3 

1.2780 

2.6057 

0.9077 

5 

2.5988 

3.1841 

2.0060 

7 

3.5183 

3.2951 

2.6419 

9 

3.9610 

3.3012 

2.8519 

11 

3.7488 

3.2732 

2.7917 

13 

2.8329 

3.0329 

2.3768 

15 

1.5122 

2.3220 

1.5920 

17 

0.4963 

1.2354 

0.8216 

19 

0.1000 

0.3402 

0.3184 

TABLE  7 - ADDED  MASS  AS  A FUNCTION  OF  DESIGN  WATERLINE  OF  28.5  FEET 


Added  Mass 

Added  Mass 

Added  Mass 

Station 

n 

mo 

n 

Station 

n 

ao 

n 

Station 

n 

mo 

n 

2 

ton-s  /ft 

2 

ton-s  /ft 

2 

ton-s  /ft 

0 

0.23 

7 

146.06 

14 

89.87 

1 

18.12 

8 

157.78 

15 

60.58 

2 

37.34 

9 

164.27 

16 

36.97 

3 

59.43 

10 

163.27 

17 

18. 19 

4 

84.20 

11 

155.58 

18 

7.96 

5 

107.44 

12 

140.39 

19 

3.48 

6 

127.03 



13 

117.14 



20 

0.71 

Values  for  added  mass  are  lumped  extending  over  ship  length  from  Station 
(n  - j)  to  Station  (n  + j) . 


f 

I 
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(, 


(i  moA  + “o,  + i V 

4 5 6 


(42.1  + 107.4  + 63.5) 


213.1  ton-s  /ft  of  82  ft  ship  length 


2.5988  ton-s^/ft^  of  1 ft  ship  length 


The  linear  buoyancy  spring  is  equal  to  pgb^  given  in  Equation  (20) 
and  repeated  in  Equation  (32).  The  values  for  the  buoyancy  spring  listed 
in  Table  4 are  obtained  in  the  same  manner  as  for  the  added  mass  illustrated 
previously. 

The  Smith  correction  factor  is  equal  to  pA^  AX/m^.  The  values  of  pA^ 
are  listed  in  Table  4 and  are  obtained  in  the  same  manner  as  for  the  added 
mass.  These  three  linear  hydrodynamic  properties  of  added  mass,  buoyancy 
spring,  and  Smith  correction  factor  are  obtained  from  Table  4 of  Reference 
1 which  explains  how  these  values  were  obtained. 

The  two  nonlinear  hydrodynamic  forces,  buoyancy  force  and  added 
masses,  are  included  for  Station  3 at  the  stern  and  Stations  15,  17,  19  at 
the  bow  at  the  present  time.  This  can  be  modified  if  so  desired. 

The  nonlinear  buoyancy  forces  used  in  the  analysis  are  shown  in  Figure 

12  as  functions  of  emersion  Y . These  curves  were  derived  from  curves  of 

r 

the  total  buoyancy  force  shown  in  Figure  13  for  a 1-ft  section  at  Stations 
3,  15,  17,  and  19  by  subtracting  the  linear  spring  rates  recorded  in  Table 
6.  Algebraic  expressions  for  these  curves  are  given  in  Table  8.  These 
were  obtained  by  fitting  the  best  mathematical  curve  to  the  data  points  for 
the  nonlinear  buoyancy  force. 

The  nonlinear  added  masses  used  in  the  analysis  are  shown  in  Figure  14, 
and  they  were  obtained  in  the  same  manner  as  for  the  nonlinear  buoyancy 
force.  Algebraic  expressions  for  these  curves  are  given  in  Table  9. 
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pgA^X  (TONS) 


Figure  12d  - Station  3 


Figure  12  - Nonlinear  Buoyancy  Forces 
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BUOYANCY  FORCE  PER  UNIT  LENGTH  DUE  TO 
DISPLACED  FLUID  (TONS/FT) 


100 

80 

60 

40 

20 


0 10  20  30  40  50  60  70 

DRAFT  (FT! 

Figure  13  - Variation  of  Buoyancy  Force  with  Draft 


TABLE  8 - NONLINEAR  BUOYANCY  TERNS 


Station 

Buoyancy 

tons/ f t 

— , 2 

19 

pgA  = 0.03024  (Yr  + 10)  Yf  < -10 

=0  ^ -10 

— 2 

17 

PgA  = 0.01345  Yr 

— 2 

15 

PgA  = 0.02512  Y Y > 0 

r r 

- 0 Y < 0 

r ~ 

- 2 

3 

PgA  - 0.05179  Y Y > 0 

r r 

- 0 Y < 0 

r ~ 
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Figure  14d  - Station  3 
Figure  14  - Nonlinear  Added  Masses 
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TABLE  9 - NONLINEAR  ADDED  MASS  TERMS 


Station 

3 

Added  Mass *10 

ton-s  /ft 

19 

m 

- 

-0.1476  (Yf  + 10)3 

Y <- 
r 

10, 

V >0 
r 

0 

>- 

10, 

>0 

= 

-0.2658  (Yr  + 10)3 

<- 

10, 

<0 

- 

0 

> - 

10, 

<0 

17 

m 

- 

-13.17  Y + 1.568  Y2 
r r 

Y < 
r 

0, 

V >0 
r 

a 

-13.17  Y 

> 

0, 

>0 

- 

-13.17  Y + 2.720  Y 
r r 

< 

0, 

<0 

= 

-13.17  Y 

r 

> 

0, 

<0 

15 

m 

= 

-26.13  Y -0.7805  Y2 
r r 

Y > 
r 

0 

a 

-26.13  Yr 

< 

0 

3 

m 

- 

-37.32  Y 

r 

Y < 

r 

0, 

V >0 
r 

= 

-68.29  Yf 

> 

0, 

>0 

= 

560.2  - 14.74  Y 

r 

< 

0, 

<0 

26 

560.2  - 91.54  Yr 

> 

0, 

<0 
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Figure  15  shows  the  hydrodynamic  damping  coefficient  for  a 1 — f t 
section.  These  curves  were  derived  from  References  10  and  11,  and  were 
used  f^r  the  SAC  given  in  Reference  1.  Since  damping  force  does  not  affect 
the  solution  given  by  the  computer  very  much,  the  values  of  C(w)  used  are 
considered  sufficiently  accurate  for  both  SAC  and  program  ROSAS. 

Figure  15  can  also  be  used  to  estimate  C(w)  for  other  ships  with  non- 

dimensional  factors  oo/B/g  and  C(w  )/ (A/ /gL-  *) . For  ship  vibration,  the  mean 

value  of  0.034  for  (C  + C(u)))/m  u may  be  used  for  all  modes. 

s 

The  velocity  of  wave  propagation  of  the  sea  surface  has  been  estab- 
lished 

c(fps)  = g/f.j  (37) 

The  wave  velocity  relative  to  the  ship  is  equal  to  c+U. 


0 0.2  0.4  0.6  0.8  1.0  1.2 

FREQUENCY  cj  (RAD/S) 


6.742 


3.371 


CM 

t/j^ 


Figure  15  - Hydrodynamic  Damping  Coefficients 


^Grim,  0.,  "Berechnung  der  durch  Schwingungen  eines  Schif fskorpers  erzeug 
ten  hydrodynamischen  Krafte,"  Jahrbuch  der  Schif fbautechnischen  Gesellschaft 
Vol.  47  (1953). 

^Golovato,  P.,  "A  Study  of  the  Forces  and  Moments  on  a Heaving  Surface 
Ship,”  David  Taylor  Model  Basin  Report  1074  (Sep  1957). 
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APPENDIX  B - STRUCTURAL  SEAWORTHINESS 
DIGITAL  COMPUTER  PROGRAM  ROSAS 

The  schematic  of  ROSAS  has  been  shown  in  Figure  1.  The  program  con- 
sists of  the  main  program  called  PROGRAM  SIMSHIP  and  many  subroutines  as 
shown  in  Figure  16.  Descriptions  of  subroutines  and  functions  are  given 
in  Table  10.  The  functioning  of  subroutines  and  alternate  entries  is 
given  in  Table  11,  which  shows  names  of  subroutines  to  call  and  to  be 
called.  Table  12  gives  the  complete  program  ROSAS  which  Includes  PROGRAM 
SIMSHIP,  the  major  subroutines  SUBROUTINE  HYD  FRC , SUBROUTINE  SLAM,  SUB- 
ROUTINE SEA  GEN,  SUBROUTINE  DAUX,  SUBROUTINE  KUTMER,  and  other  subroutines. 
Also  included  in  Table  12  are  a list  of  input  cards  and  a sample  of  selected 
output  print.  The  flow  chart  for  the  program  ROSAS  is  shown  in  Figure  17. 

SIMSHIP 

The  main  program  is  SIMSHIP.  It  determines  the  length  of  the  time 
step  to  the  next  printing  or  plotting  time.  It  calls  the  integration 
subroutine  to  integrate  to  this  time  and  then  prints  data  or  calls 
subroutines  that  store  data  for  plotting.  At  the  end  of  the  problem 
it  calls  subroutines  to  plot  the  data  that  have  been  previously  stored. 

The  flow  chart  for  SIMSHIP  is  given  by  Figure  18. 

KUTMER 

SUBROUTINE  KUTMER  is  used  to  integrate  the  system  of  ordinary  differ- 
ential equations  that  describe  the  response  of  the  ship  to  hydrodynamic 
forces.  This  subroutine  implements  a Runge-Kutta  method  that  incorporates 
automatic  error  control. 

DAUX 

SUBROUTINE  DAUX  is  called  by  the  integration  routine  to  compute  linear 
derivatives  with  respect  to  time  of  the  ship  vertical  position,  vertical 
velocity,  angular  velocity,  bending  moment,  and  shear  force.  These  deriva- 
tives are  computed  at  the  various  stations  of  the  ship  by  evaluating  the 
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expressions  on  the  right-hand  sides  of  Equations  (15a)  to  (15d).  The 
subroutine  HYD  FRC  is  called  by  DAUX  to  compute  the  hydrodynamic  force  P 
acting  on  the  ship. 


HYD  FRC 

SUBROUTINE  HYD  FRC  computes  the  hydrodynamic  force  P,  using  Equations 
(1)  to  (A).  The  hydrodynamic  forces  are  computed  at  odd  numbered  Stations 
3 through  19.  Then  they  are  distributed  to  Half-Stations  1.5  through  19.5. 

The  sum  of  the  linear  part  of  the  added  mass  and  the  ship  mass  is  returned 
to  DAUX,  where  it  is  used  in  Equation  (15a). 

SUBROUTINES  SEA  GEN  and  SLAM  are  called  by  HYD  FRC  to  compute  a 
kinematic  description  of  the  surface  of  the  sea  and  forces  due  to  bottom 
slamming  of  the  ship.  Principal  FORTRAN  variables  for  subroutine  HYD  FRC 
are  listed  in  Table  13,  and  the  flow  chart  for  subroutine  SLAM  is  shown  in 
Figure  19. 

SEA  GEN 

SUBROUTINE  SEA  GEN  computes  the  vertical  height,  velocity,  and 
acceleration  of  the  sea.  These  values  are  computed  and  returned  for  each 
of  the  nine  stations  at  which  the  hydrodynamic  forces  are  computed.  Also 
the  velocity  of  the  waves  is  computed.  For  sinusoidal  waves,  vertical  height, 
velocity,  and  acceleration  of  the  waves  is  computed  by 

Y = H sin  w(t+X/c) 
w 

Y = wH  cos  w(t+X/c) 
w 

Y = -to^H  cos  w(t+X/c) 
w 

where  H is  the  prescribed  wave  height  in  feet 

w is  the  prescribed  wave  frequency  in  radius/second 

X is  the  position  of  the  station  for  which  the  values  are  being 

computed.  The  wave  velocity  (celerity)  c equals  g/u),  where  g is  the  accel- 

2 

eration  of  gravity  in  feet/second  . The  shape  of  the  discrete  wave  train  is 
approximated  by  the  sum  of  two  sinusoidal  waves. 
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INPUT  CARDS 


The  input  deck  consists  of  a first-case  input  deck  and  either  none  or 
more  subsequent-case  input  decks.  Case  decks  are  separated  by  7/8/9  cards, 
and  the  last-case  input  deck  is  followed  by  two  consecutive  7/8/9  cards. 

The  possible  card  types  in  the  first-case  input  deck  are  listed  in 
Table  14.  The  consequence  of  omitting  an  input  card  is  explained  in  the 
last  column  of  that  table.  Subsequent-case  input  decks  consist  of  only 
~ard  types  on  which  one  or  more  fields  differ  from  the  preceding  case. 


V 
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Figure  16  - Structural  Seaworthiness  Digital  Computer  Program  ROSAS 
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Lgure  17  - Control  Flow  between  Main  Program  SIMSHIP  and  Principal 
Subroutines  of  Structural  Seaworthiness  Digital  Computer 

Program  ROSAS 


OF  INPUT  CONDITIONS 


Figure  18 


Program  SIMSHIP  Flow  Chart 
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5 


Figure  19  - Subroutine  SLAM 
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TABLE  10  - GUIDE  TO  ROSAS  SUBPROGRAMS 


lame: 

Type* 

Description 

BUILD 

S 

Builds  sorted  list 

CNTFIN 

E (CNTRN) 

Echoes  CONTROL  card  data 

CNTRDT 

E (CNTRN) 

Reads  CONTROL  cards 

CNTRN 

S 

Sets  CONTROL  card  defaults 

DAUX 

S 

Computes  derivative  vector 

FIELDS 

S 

Reads  numeric  data  fields 

HERR 

E (HYDIN) 

Prints  diagnostic  for  illegally  calculated 
hydroforce  station 

HFCIN 

E (HYDFRC) 

Initializes  hydroforce  calculations 

HSDT 

E (HSTIN) 

Reads  HALF-STTN  cards 

HSTDFN 

S 

Reads  free-field  bias-width  definition 

HSTFIN 

E(HSTIN) 

Echoes  HALF-STTN  card  data 

HSTIN 

S 

Sets  HALF-STTN  card  defaults 

HYDIN 

S 

Sets  HYDRO  card  defaults 

HYDFIN 

E(HYDIN) 

Echoes  HYDRO  card  data 

HYDFRC 

S 

Computes  hydroforce 

HYDRDT 

E(HYDIN) 

Reads  HYDRO  cards 

INDMFIN 

E(INDMPIN) 

Echoes  DAMPC  card  data 

INDMPDT 

E(INDMPIN) 

Reads  DAMPC  cards 

INDMPIN 

S 

Sets  DAMPC  defaults 

IN1TDT 

E(  INTIN) 

Reads  INITIAL  cards 

IPWR2 

F 

Returns  smallest  power  of  two  equally  or  exceeding 
argument 

INPLFIN 

E(INPLTIN) 

Echoes  PLOT  and  AXES  card  data 

INPLTDT 

E(INPLTIN) 

Reads  PLOT  and  AXES  cards 

INPLTIN 

S 

Sets  PLOT  and  AXES  card  defaults 

INPRDT 

E(INPRIN) 

Reads  PRINT  cards 

INPRFIN 

E(INPRIN) 

Echoes  PRINT  card  data 

INPRIN 

S 

Sets  PRINT  card  defaults 

INSEGDT 

E(SEAGEN) 

Reads  SEA  GEN  cards 

INSEGIN 

E(SEACEN) 

Sets  SEA  GEN  card  defaults 

*E(nnnn)  is  alternate  entry  point  o£  subprogram  nnnn;  F is  function;  S is 
subroutine . 
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Name : 

Type* 

TABLE  10  (Continued) 

Description 

INSGF1N 

E (SEAGEN) 

Echoes  SEA  GEN  card  data;  initializes  sea  genera- 
tor calculations 

INSMIN 

E(SLAM) 

Sets  SLAM  card  defaults 

INSMDT 

E(SLAM) 

Reads  SLAM  cards 

INSMFIN 

E(SLAM) 

Echoes  SLAM  cards 

INTIN 

S 

Initializes  initial  condition  logic 

INTRDT 

E (INTRIN) 

Reads  INTGRTN  cards 

INTRIN 

S 

Sets  INTGRTN  card  defaults 

INTRFIN 

E(INTRIN) 

Echoes  INTGRTN  card  data 

INUPH 

S 

Executive  routine  for  input  data  processing 

I SEARCH 

S 

Performs  binary  search 

kutmer 

S 

Performs  numerical  integration 

MSCDN 

S 

Sets  SCTN  and  SPEED  card  defaults 

MSCDT 

E (MSCDN) 

Reads  SCTN  and  SPEED  cards 

MSFIN 

E (MSCDN) 

Echoes  SCTN  and  SPEED  card  data 

MY  END 

S 

Flushes  buffers  in  the  event  of  abnormal  termina- 
tion 

NLIN 

E (NLINPUT) 

Sets  NL_A/NL  B card  defaults 

NLINPUT 

S 

Reads  NL  A/NL  B cards 

NLFIN 

E (NLINPUT) 

Completes  NL  A/NL_B  card  processing 

N0LEX 

F 

Performs  nonlinear  expression  evaluation 

PL0T 

E(PL0TIN) 

Stores  data  to  be  plotted 

PL0TFIN 

E(PLOTIN) 

Terminates  plotting 

PL0TIN 

S 

Initializes  plotting 

PUNCHIT 

E(INTIN) 

Punches  final  conditions 

SCAN 

S 

Performs  lexiographical  scan 

SEAGEN 

S 

Sea  Generator 

SLAM 

S 

Computes  bottom  slamming  force 

S SMOOTH 

s 

Smooths  computed  slamming  force 

STFIN 

E(STIN) 

Echoes  STATION  card  data 

STIN 

S 

Sets  STATION  card  defaults 

STNDT 

E(STIN) 

Reads  STATION  card  data 

TRYPIN1 

S 

Calculates  vertical  axes,  plotting  parameters 

TRYPIN2 

E(TRYPINl) 

Calculates  horizontal  axes,  plotting  parameters 

TRYPLOT 

E(TRYPINI) 

Plots  one  frame  of  data 

*E(nnnn)  is  alternate  entry  point  of  subprogram  nnnn;  F is  function;  S i 
subroutine . 
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TABLE  11  - FUNCTIONING  OF  SUBROUTINES  AND  ALTERNATE  ENTRIES 
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TABLE  11  (Continued) 


t 
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TABLE  11  (Continued) 
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TABLE  11  (Continued) 
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TABLE  12  - STRUCTURAL  SEAWORTHINESS  DIGITAL  COMPUTER  PROGRAM  ROSAS 


PR9GRAN  SIHSMlP(IRPUT*128,OUTPUT=256,PUNCH=  128  , T APE5  = I NPUT,  T APE*  , 

SNSHP 

z 

1 TAPE  6*0UTPU  T,  TAPE  2.PUNC  H ,FIL  HPl  « 128  , TAPE  AS  *F  IL  NPl  .DEBUG*  OUT  PU  T) 

SNSHP 

3 

cs 

DEBUG 

SNSHP 

6 

Cl 

ARRAYS 

SNSHP 

5 

OINENSION  TPI21,  9B(2>  ,TPP(2»  ,LI2) 

SNSHP 

6 

OINENSION  THIS) 

SNSHP 

7 

CONNON  /HBLOK/  AAG  ( 21)  ,R  INK  21),  El  (20  ) ,SHPNS(20)  , OANPC120  > , 

SNSHP 

8 

l OAI.NCVAL,  SPEED,  BUOY  SPG  1 9)  , SCF  ( 9) , A DONS  ( 9 > , VR  T NS(  2 0 ) , 1 8EG,  I E NO 

SNSHP 

9 

CONNON/ 1 NPTl/IE0r,8(  11,2)  , TS  T RT  . HNNI , T F,  H ( 1 0 , 2 ) , NHC2  ) .EPS  (91 ) , 

C05 

2 

1ABSF*R!6<  ) ,»INGTM  , TCPU,  CONTROL  (9) 

C05 

3 

CPNNON  /TEST/  IND 

SNSHP 

11 

OINENSION  YDOT(20I  ,GOOT  (21)  ,BON  120)  ,SF(21>  ,TENP(21 1 

SNSHP 

1Z 

EATERNAk  NYENO 

SNSHP 

13 

EQUIVALENCE 

C 03 

Z 

1 (YS,YN),IYS(10),  TOOT),  <YS(  3 0 ) , G OOT  ) , (TS(S1)  , BON  ) , (YS(21),SF) 

CD3 

3 

CONNON  /PRNTl/T.PI  TCM,  Tk  EFT 

SNSHP 

15 

EQUIVALENCE  (YS.YN) 

SNSHP 

16 

CONNON  YS (91) 

SNSHP 

12 

OATA  IPG,  YES  / 8,  JHYES  / 

SNSHP 

18 

9 

SNSHP 

19 

^•INITIALIZATION 

SNSHP 

20 

• 

SNSHP 

21 

* 

CALL  SECONO(TCl) 

SNSHP 

22 

CALL  INUPH 

SNSHP 

23 

IF  ( IE  OF  ,EQ.  1>  GO  TO  1060 

SNSHP 

26 

CALL  PL.OTIN 

SNSHP 

25 

INO  * O 

SNSTV* 

26 

CALL  SECOND (TC2) 

SNSHP 

22 

TLEFT».9*TCPU-TC2aTC1 

SNSHP 

28 

DO  10  K*1 ,2 

SNSHP 

29 

TP(K)>B(1,K) 

SNSHP 

30 

8B(K)  -(1.«SIGN(.  08  01  ,9  (2  , K))  ) *B(2  ,K) 

SNSHP 

31 

TPP(R)*(i. -SIGN!,  0001, TP  IK)))*  TP  IK) 

SNSHP 

32 

11 

L (A)«l 

SNSHP 

33 

T«  TSTRT 

SNSHP 

36 

NEPAL  *0 

SNSHP 

35 

ISTEPS** 

SNSHP 

36 

• 

SNSHP 

32 

C**T  INE-ItlCRENE NT  LOOP 

SNSHP 

36 

• 

SNSHP 

39 

100 

IF  (T.GT.TF)  GO  TO  900 

SNSHP 

60 

IF  (TP(1)  • GE  • 1.E20  , AN  O • TP(2>  .GE.  1.E20)  GO  TO  900 

SNSHP 

61 

C»»OETERNINE  INTEGRATION  INTERVAL 

SNSHP 

62 

• 

SNSHP 

63 

9 

MHICN  IS  NEATT  PRINT  (1*2)  , PLOT(I*l)  OR  BOTHIFALL  THROUGH) 

SNSHP 

66 

DO  130  1*1,2 

SHSH> 

65 

J*J-I 

SNSHP 

66 

IF  (TP(I1  .LE.  TPP(J))  GO  TO  150 

SNSHP 

62 

131 

CONTINUE 

SNSHP 

68 

TT*(TP(t»  ♦TP(2>>».5 

SNSHP 

69 

*1*1 

SNS)#> 

50 

«*? 

SNSHP 

51 

GO  TO  16* 

SNSHP 

52 

111 

TT *TP  (I) 

SNSHP 

53 

Gl*K2*I 

SNSHP 

56 

160 

N*TT-T 

SNSHP 

55 

C»»OETE»NINE  NEAT  PLOT/PRINT  TINE 

SNSHP 

56 

JINO*0 

SNSHP 

52 

OO  2*0  A*K1,K2 

SNSHP 

58 

LL  *L (A) 

SNSHP 

59 

TTP»TPf  K)  *H  (LL  , K) 

SNSHP 

60 

• HILL  THE  NEAT  TINE  GO  OUT  OF  PRESENT  INTERVAL,  IF  SO, 

SNSHP 

61 

• AOVANCE  INTERVAL 

SNSHP 

62 

IF  < T TP  . GT.  68(0)  GO  TO  120 

SNSHP 

63 

TP(K) *TTP 

SNSHP 

66 

GO  TO  195 

SNSHP 

65 

• OOES  THE  NO.  OF  REQUESTED  INTERVALS  EXCEEO  THE  NO.  GIVEN,  IF  SO, 

SNSHP 

66 

• SET  "INFINITE-  STARTING  TINE  FOR  TNE  NEAT  OUTPUT. 

SNSHP 

62 

120 

IF  (LL  ,LT.  NHIMI  GO  TO  180 

SNSHP 

68 

67 


able  12  (Continued) 


TPU)  *1.E20 

SMS  HP 

69 

GO  TO  195 

SNSMP 

70 

180 

LL»L <K)*L (Kl «1 

SHSHP 

71 

TP IKI =B(LL, K) *M(lL .K) 

SMSHP 

72 

bb<k>  * (i.  »sign(.  oooi.s  <ll*i,  k>  ) > *bul  *i,  k) 

S MS  HP 

73 

195 

TPP (Kl* ( 1.-SI6N (. 00 01, TP (Kl) >»TP (K> 

SMSHP 

75 

JINO»JIND»K 

SMSHP 

75 

ZOO 

CONTINUE 

SMSHP 

76 

C**OETERNINE  IF  ENOUGH  CPU  TINE  LEFT 

SMSHP 

77 

IF  USTEPS  .EQ.  3)  GO  T3  210 

SMSHP 

74 

ISTEPS>ISTEPS*1 

SMSHP 

79 

GO  TO  1220,212,230 > ISTEPS 

SMSHP 

SO 

212 

TCONP2*0 

SMSHP 

SI 

GO  TO  230 

SMSHP 

82 

210 

IF(M1  .NE.  H2I  GO  TO  215 

SMSHP 

83 

HI  * 0 

SMSHP 

65 

TC OH PI  * O. 

SMSHP 

85 

215 

FRACT  * (H  - H1IMH2  - Ml) 

SMSHP 

86 

TCOMP  i TCOHP1  ♦ FRACT»(  TCOMP2  - TCOMP1) 

SMSHP 

87 

IF  ITLE*T-TCONP.GT.O.)  GO  TO  230 

SMSHP 

88 

MRITE (6, 050 > H1,H2 ,H,TCONPl, TCONP2, TCOMP , Tl  EFT 

SMSHP 

89 

050 

FORMAT  C25H  COMPUTE  0 TIME  LIMIT  f 

SMSHP 

90 

1 22 H LAST  TOO  TIME  STEPS  , 1P2E10 .2, 5X  , 15HNEXT 

TIME  STEP 

SMSHP 

91 

2,1  PE  10,2  / 22M  LAST  TMO  COMP  TIMES  ,2F10.3,5<, 

SMSHP 

92 

3 15MNEXT  COMP  TIME  ,*10. 3 / 57X.15HCOMP  TIME  LEFT 

, F 10  • 3 ) 

SMSHP 

93 

IF( CONTROL ( 2)  .EQ.  TESI  CALL  PUNCHIT 

SMSHP 

95 

GO  TO  1050 

SMSHP 

95 

C**START  SIMULATION  WITH  2 BABY  STEPS 

SMSHP 

96 

220 

TIME  *0 

SMSHP 

97 

HM  «1.E“0  5*MMNI 

SMSHP 

98 

FIRST*0. 

SMSHP 

99 

00  225  KL«l,2 

SMSHP 

100 

MMIM*MMNI 

SMSHP 

101 

CALL  SECOND  (TIMED 

SMSHP 

102 

COLL  KUTNER<91,  T,MH,YS,EPS,ABSERR,HMIN,F  ImST) 

SMSHP 

103 

call  SECONOT  TIMF2) 

SMSHP 

105 

TIME*TIME»TIME2-TIME1 

SMSHP 

105 

IF  1 FIRST  .EQ.  2.1  GO  TO  « 75 

SMSHP 

106 

225 

CONTINUE 

SMSHP 

107 

M2  * MM 

SMSHP 

108 

M»  M-MM-MM 

SMSHP 

109 

IF  (M  .LE.  0)  GO  TO  300 

SMSHP 

1 10 

C •• I NTEGRA TE  EQUA T IONS 

SMSHP 

111 

230 

IF  IM  .EQ.  M21  GO  TO  250 

SMSHP 

112 

HNIN>H 

SMSHP 

113 

FIRST*. 5 

SMSHP 

115 

235 

IF(MMIN/MMNI  .LT.  1.0001  ) GO  TO  250 

SMSHP 

115 

MHIN=HMIN/2 

SMSHP 

1 16 

GO  TO  235 

SMSHP 

117 

250 

CONTINUE 

SMSHP 

1 18 

IF  (H  .LE.  0)  GO  TO  100 

SMSHP 

1 19 

CALL  SECOND ( T I ME  1 1 

SMSHP 

120 

CALL  KUTNER ( 91  , T,  M , YS,  FPS,ABSERR,HMIN,FIRST) 

SMSHP 

121 

CALL  SECOND! T IME  2) 

SMSHP 

122 

IF  |ABS(1. -M2/H)  .LT.  .01)  GO  TO  250 

SMSHP 

123 

Ml  » H2 

SMSHP 

125 

TCOMP1  * TCOMP2 

SMSHP 

125 

250 

TCOMP2  « TIME 2 - T I ME  1 

SMSHP 

126 

TCOMPl*TCOMP2 

SMSHP 

127 

TLEFT*TlEFT-TCOMP2 

SMSHP 

128 

tine«time*tcomp? 

SMSHP 

129 

M2*M 

SMSHP 

130 

IF  IFIRST  .EQ.  2.)  GO  TO  8T5 

SMSHP 

131 

• 

SMSHP 

132 

C*#C  OMPUfC  The  pitch 

SMSHP 

133 

• 

SMSHP 

135 

399 

PITCH*57.296»ATAN(  ( YH  ( 9)  - YM(  l ) ) 7 KL  NOTH) 

SMSHP 

l 35 

9 

SMSHP 

1 3b 

C»»  OUTPUT  RESULTS  AND  THEN  JUMP  BACK  FOR  ANOTHER  TINE  INCREMENT 

SMSHP 

137 

* 

SMSHP 

1 38 

68 


Table  12  (Continued) 


IF  ( J I NO  .EQ.  2)  GO  TO  JS0 

SHSHP 

159 

CALL  PLOT 

SHSHP 

140 

IF  IJINO  .EQ.  1)  GO  TO  100 

SHSHP 

1 41 

350 

I NOS A V * INO 

SHSHP 

142 

T«*C1.»1.E-10I  »T 

SHSHP 

143 

INO  * 1 

SHSHP 

1 44 

CALL  HYOFRC  crx.TM, TOOT,  TEMP) 

SHSHP 

145 

INO  * INOSAV 

SHSHP 

146 

IPG  * IPG  • 1 

SHSHP 

1 47 

WRITE  (6*99)  T,TIME,MMIN,NEVAL 

SHSHP 

146 

46 

FORMAT 11M1) 

SHSHP 

149 

49 

FORMATI1M-///  5N  TIME.Fl4.5f5H  SECS ,F  1 7.  3 , 1 4M  SECS  CPU  TIME  / 

SHSHP 

150 

1 1IM  TINE  STEP  ,r9.5,5H  SECS,I1T,23H  DERIVATIVE  EVALUATIONS) 

SHSHP 

151 

WRITE  ( b , 5 0) 

SHSHP 

152 

WRITE  (6,55)  ( YM( I ) , I * 1,  9) 

SHSHP 

153 

WRITE  16,51) 

SHSHP 

154 

WRITE  (6,55)  (YOOT(I),  I = 1,20) 

SHSHP 

155 

WRITE  (6,56)  PITCH 

SHSHP 

156 

WRITE  (6,52) 

SHSHP 

157 

WRITE  (6,55)  (GOOT(I),  I = 1,21) 

SHSHP 

156 

WRITE  (6,53) 

SHSHP 

159 

WRITE  (6,55)  (BOM(I)  , I - 1,20) 

SHSHP 

160 

WRITE  (6,56) 

SHSHP 

161 

WRITE  (6,55)  ( SF  ( I ) , I i 1,21) 

SHSHP 

162 

SO 

FORMAT  (20M0VERTICAL  POSITION  .1P10E10.2) 

SHSHP 

163 

51 

FORMAT  (20HOVERTICAL  YE.OCITY  .1P10E10.2) 

SHSHP 

164 

52 

FORMAT  (20H0ANGULAR  VELOCITY  ,1P10E10.2) 

SHSHP 

165 

53 

FORMAT  ( 2 0M  OBENPING  MOMENT  .1P10E10.2) 

SHSHP 

166 

5* 

FORMAT  (20M0SMEAR  FORCE  , 1P10E10.2) 

SHSHP 

167 

55 

FORMAT  ( 1H  , 1P10E12.6) 

SHSHP 

166 

56 

FORMAT  (20M0PI  TCM  .1P10E10.3) 

SHSHP 

169 

GO  TO  100 

SHSHP 

170 

SHSHP 

1 71 

••CONE  HERE  FOR  CASE  TERMINATION 

SHSHP 

172 

SHSHP 

1 73 

8TS 

WRITE (6, >90) 

SHSHP 

1 74 

>90 

FORNAT(lK,»STOP®eO  WITH  FIRST  = 2.») 

SHSHP 

175 

900 

IF  (CONTROL  (2)  .Ed.  YES)  CALL  PIINCHIT 

SHSHP 

176 

GO  TO  5 

SHSHP 

177 

SHSHP 

1 76 

••  JOB  TERMINATION 

SHSHP 

1 79 

SHSHP 

160 

1050 

call  plotfin 

SHSHP 

161 

STOP 

SHSHP 

182 

END 

SHSHP 

183 

69 


Table  12  (Continued) 


SUBROUTINE  MYOFRC  ( T , T H,  Y HOO  T , HF  ) 

Cl  OE  BUG 

Cl  STORES  IMF TEMP, VNI E MP, KCON 0 , 1 A 01 
RE  AL  N(XE« 

REEL  KAG 

OIHENSION  KAGI21) , RINT  12  1 1 ,EI  120)  , SMP  NS  I 20 > , DAMPC (2 0 > 

1 ,SCF(9),BU0Y  SP  GIB)  * A OH  MS<9),  VRT  MS<20> 

2 ,YH(9>  , YHOOT!  20  > , YR  < 9)  , YROOI  (9)  , YM0DI9I  , VR  ( 9)  ,HE  (21) 

J , YW (91 , YROOT (91 

% ,AN(2>  ,BS(2>  ,SC  (2>,HD(2I 

S ,S MERC (6, 2)  . SMPTSI12) 

DIMENSION  CSl(lO) 

c 

DINENSI3N  NLINVI9I,  29  Y4  Ox  1 1 9 I ,ME  TEMP  (9»  , I3NL  IS  , 91 , 1 T YPE  ( 18) 
OINENSION  TCRITI1BI,  VCR  I T (18) 

OIHENSION  IBSTOREI  350)  .BSTORE  (350)  ,VMTEMP(9)  , INNLI5.9) 

OINENSION  INSTORE  I 3S0, 2)  , A MS  TORE  (3  SO,  21 , NAP  PLY  I 231  , ML  191 
E a UI VALENCE  1 1 BST ORE ,9ST ORE  I , (INSTORE , AMS  TORE) 

CONHON/NBLOCK/YOEL  T 

COMNON/CBLOK/NCAIC,  NHS  TN  S , NGROUP,  NL,NLINV,IMNL*  I 0 NL  , ITYPE  ,YCRIT 
2,  VCR  IT,  I BST  ORE,  I MS  TORE  .KWOROS  (21  ,NP(2>,IFIRST,NAPPLY 
COMMON  / M BL  OK  / K A G , R I NT  , E I , SMPMS  , 0 AMPC  , 0 * I , NE  VAL  , SPE  E 0 . 

1 BUOY  SPG,SCF,ADOMS,VRTMS,I9EG,IENO 
COMMON  /MOBLOK/  MYD0AMPI9) 

C0NH0N/P8L0K1/NR, TTT 120)  , R 1 2 0 ) , NS BSTN , NA Mt , CODE , PHONE 
COMHO  N/I NPT 1/  I E OF  ,B(11,2),TSTRT.HMNI,TF,N(10,2),NN(2),EPS(91)  , 

IABSERRI91 ) .KLNGTM  , TCP U,C ONT ROL < 9 ) 

COMMON  /TEST/  INO 

OATA  TYR,  T YROOT,  T Y N DO  , TV  R , T A M , TNE  l ,THF2,  TMF  3,TMF9,THF5,TVM,THF6 
1 ,TMF  2 ,TKH,  TNV.SLM/ 

1 9H  REL  01  SP  ,8  M REL  V EL  , 9 M NAVE  ACC.9M  RL  NV  VL.9M  AOO  MASS 

2 ,9M  BUOY  SPG, 9H  N-L  8 SP,9M  N-L  A MS , 8M  SPC  0RV.4M  SCF 

3,2M  VRT  MS, 8H  MYO  FRC.BH  HYO  0MP.7H  MV  MGT,7M  MV  VEL.8H  SLM  FRC/ 
OATA  SHOT  M/ 7M  SMOOTH/ 

OATA  PI,LABEL  / 3.  141592  65 ,0  / , AM  , BS  , SC,  HO/  1H  .IQhAOOEO  MASS, 

1 1 OH  8U  , 1 09  0Y • SPRING  ,1M  .10MSMITH  C.F. 

2 ,10M  MYO,  10HRO  DAMPING/, YES  / 3MYES  /,TMO  PI 

J / 6, 283185  30  7 / 

OATA  CSt  / .0  00, . I 74, . 342,  .50  0,.  64  3, . 766,  .8  66, . 940, . 985,  l. 00  / 

IF  INEVAL  .EQ.  IBEG)  I Nu  - 1 

IF  INEVAL  .EQ.  IENO)  INO  > 0 

IFIT  .EQ.  OLD  T)  RETURN 

OLO  T * T 
100  CONTINUE 
I M * • 

IB  = 0 

call  seageniyn.ymoot.ymoo.cel ,ti 

71  CONTINUE 

• 

• COMPUTE  THE  SHIPS  VERTICAL  DISPLACEMENT  ANO  VELOCITY  RELATIVE 

• TO  THE  SEA 

09  no  i*i,ncal: 

Y R 1 1 ) « YHI I)  - VRIII 

J*RL INVCI ) #1 

IF  TJ  .ME.  1)  GO  TO  AO 

• IF  YR30T(1)  NE EOE 0 » EXTRAPOLATE  YHOOT  FROM  STATIONS  .5  ANO  1.5 

YROOT  (I ) * 1.5  • YHOOT  (1  ) - .5  • Y MO  0 T (2  ) - YWOOTTII 

GO  TO  110 

90  IF  ( J .NE.NMSP1)  GO  TO  90 

YROOT(I)  * -.5  • VHOOTU-3)  ♦ 1.5  • YMOOTTJ-ll  - YWOOTCI) 

GO  TO  110 

90  YRDOTIII  « .5  • TYHOOTTJ-ll  ♦ VNOOTU))  - YNOOTTI) 

110  CONTINUE 

• 

• COMPUTE  THE  VERTICAL  VELOCITY  OF  THE  HAVE  RELATIVE  TO  THE  SHIP 
VRfll«YROOTlll  -7BY40XIUI*  IYR  (?) -YRT 1>> 

VR(NCALC) -YROOT  TNCALC) -Z 0 Y4D X I <NC ALC ) MYRTNCALC) - YR ( NCLC M 1 ) ) 

03  135  I*?*  NC  L C H 1 

135  VRT I) * YROOT 11 > - 79 Y 40X1 (II • (YR  <!♦!> -YR  Cl- l >) 


HOFRC 

HOFRC 

HDFRC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOF  RC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOF  RC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

C 06 

C05 

C 05 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOF  RC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HJFRC 

HOFRC 

HOF  RC 

HOFRC 

HOF  RC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 

HOFRC 


2 

3 

4 

5 

6 
7 

a 

9 

10 
1 1 
12 
li 

14 

15 
lb 
1 7 

I 5 
1 1 
20 
21 
22 

23 

24 

25 
2 
2 
3 

23 

29 

30 

31 

32 

33 

34 

35 

36 

3 7 
3d 

39 

40 

41 

42 

4 3 
4* 
4 b 
4b 
47 
40 

4 9 

so 

Si 

5 2 
53 
9k 
55 
Sb 
S 7 
b ft 

59 

60 
61 
62 

63 

64 

65 
bb 
b f 

II 

69 

70 


70 


Table  12  (Continued) 


' BEGIN  ACCUHUL  AT ING  THE  MY  DR  OOVN A MIC  FORCE 

HDFRC 

71 

HOF  RC 

73 

> LOOP  TO  400  FOR  BUOYANCY  ANO  AOOEO  HASS  AT  EACH  CALCULATED  FORCE 

HDFRC 

73 

1 HALF  STATION 

HOFRC 

74 

MOFRC 

75 

DO  400  1 = 1,  NCALC 

HOFRC 

76 

MFTEMP(I) =-8U0YSPG(I )»YR (I) 

HOFRC 

77 

J JGROUP*  0 

HOFRC 

78 

IF  (CONTROL  (3)  .NE.  YES  .OR.  NL(I)  .EQ.  0 .OR.  NL(I)  .EQ. 

3) 

HOFRC 

79 

1 GO  TO  300 

HOFRC 

80 

> COMPUTE  NON-LINEAR  BUOYANCY  IF  SELECTEO. 

MOFRC 

81 

IB=IB»1 

HOFRC 

83 

J6ROUP-JJ GROUP=IBNL (1, IB) 

HOFRC 

83 

JUMP* 1 

HDFRC 

84 

300  KCONO=1 

HOFRC 

85 

GO  TO  (380,220,340,330)  I TYPE  ( J6R0UP ) 

HOFRC 

66 

330  YOELT  = TR(I)-YCRIT(  JGROUP) 

HOFRC 

87 

IF  (TOUT  .GT.  0)  KCONO*  3 

HDFRC 

88 

IF  ( ITYPE  (JGROUP)  .EQ.  3)  GO  TO  370 

HDFRC 

89 

IPLUS=2 

HOFRC 

90 

GO  TO  25  0 

HOFRC 

91 

340  IPLUS=1 

HOFRC 

92 

350  IF  ( NR  (I ) .GT.  VCRITUGROUP  ))  KCONQ  = KCONO*IPL  US 

HOFRC 

93 

370  GO  TO  (380,380) JUMP 

HDFRC 

94 

280  IAD*IB)A.  (KCOND»t , IB) 

MOFRC 

95 

MFTEMP(I)*HFTENP< I > «NOLE X ( IBS  TORE ( IA D > , BS TORE  (I A 0*1  > , YR ( I > > 

HDFRC 

96 

300  VHTEHPII  ) *AOO  HS(I  ) 

MOFRC 

97 

IF  (CONTROL(3)  .NE.  YES.  OR.NL(  I)  .EQ.  0 . OR.  NL  ( I ) . E Q . 1)  GOTO 

400 

MOFRC 

98 

' COMPUTE  NON-LINEAR  ADOED  MASS  IF  SELECTEO. 

HDFRC 

99 

I N*  I N*  1 

HOFRC 

100 

JGROUP*INNL  (1,  IN) 

HOFRC 

101 

JUNP=? 

HOFRC 

102 

IF  (JGROUP  .NE.  J JGROUP)  GO  TO  200 

HOFRC 

103 

380  IAO*IMM.(KCONO»l,IM> 

MOFRC 

104 

VMTEMP(I)  «VNTEMPf II  »NOLE  X ( IMS  TORE  (IAD.l)  , AM  STORE  (IADH.l) 

MDFRC 

105 

i YR(II) 

HOFRC 

106 

ADO  THE  NON-LINEAR  AOOEO  MASS  TERM  TO  HYDRO  FORCE. 

HOF  RC 

107 

HFTEHP(I)  =HFTEM»  (I  ) - VR  ( I ) *YRDOT(  I ) »NOLEX  ( INSTORE  ( IAO , 3 ) , 

MOFRC 

108 

1 A MS  T ORE  (IA0*1,3),YR(I>) 

MOFRC 

109 

408  CONTINUE 

HOFRC 

110 

IF  (INO  .NE.  1)  GO  TO  430 

HOFRC 

1 11 

MRITE (6,410)  T.NEVAL 

HDFRC 

112 

410  FORNAT(6HlTIME  ,F1 1 . 6, I 1 6, 10 H FCN  EVALS  ) 

HOFRC 

113 

95  FORMAT (A9 , (9E 1 3.6 ) ) 

HOFRC 

1 1 4 

MRITE  (6,99)  TNH.YH 

MOFRC 

115 

MRITE  (6,99)  T MM,  Y MOOT 

HOFRC 

1 16 

MRITE  (6,99)  TYMDO , YMOO 

MOFRC 

117 

MRITE  (6.99)  TYR.YR 

MOFRC 

1 18 

MRITE  (6,19)  TYR90T,  YROO  T 

HOFRC 

119 

MRITE  (6,991  TVR, MR 

MOFRC 

120 

MRITE  (6.99)  TAM,  ( VMTFMP  ( I ) , I = 1,  NCALC  ) 

HDFRC 

121 

MRITE  (6,99)  TMF3, (HFTEMP(I) , 1=1, NCALC) 

HDFRC 

122 

MOFRC 

123 

COMPUTE  THE  SPACE  DERIVATIVE  TERMS  ANO  A DD  TO  THE  MYOROFORCE 

MOFRC 

124 

MOFRC 

125 

430  DO  430  1*1, NCALC 

MDFRC 

126 

11*1-1 

MOFRC 

127 

IF  (I.EQ.  1)  11*1 

HOFRC 

128 

I 2* I ♦ 1 

MOFRC 

129 

IF  It  .EQ.  NCALC)  I2*NCAlC 

MOFRC 

130 

HFTEMP(I)  =MFTENP(  I > Y29V4  OKI  ( I > • ( VMTEM  P (I  > • ( YRDOT  (12)  - YROOT(Il)  ) 

MOFRC 

131 

1 *V  NTEMP(  I3)*VR(I3)-VMTE«P<I1>  »VR<  1 1) ) 

MDFRC 

132 

430  CONTINUE 

HOFRC 

133 

IF  (INO  .EQ.  11  MRITE (6, 99)  T MF4 , ( MF  T EMP ( I ) ,1  = 1, NCAL  C ) 

MOFRC 

134 

MOFRC 

135 

COMPUTE  THE  SMITH  CORRECTION  ANO  ITS  ASSOCIATED  TERM  ANU  AOO 

TO  THE 

HOFRC 

136 

MYOROFORCE 

MOFRC 

137 

MOFRC 

1 36 

TEMP  * ABSICEL  * SPEED) 

HOF  RC 

139 

IF  (TEMP  .GT.  l.E-10)  SO  TO  460 

HOFRC 

140 

TEMP  * 0. 

MOFRC 

141 

GO  TO  461 

HOFRC 

142 

71 


Table  12  (Continued) 


V60 

TEMP  = (CEL  / TEHP) **2 

MDFRC 

163 

461 

CONTINUE 

MOFRC 

166 

00  670  1 = 1, NCALC 

HOERC 

165 

470 

HETEHP(I)  = HFTEMP(  I > * ( VNTEMP(  I)  *TENP*SCF  ( I > ) * YMOO ( I > 

HOFRC 

166 

IE  (INO  .EQ.  1)  NRITE(6,99>  T HFS , ( HE  TEMP ( I ) , 1 = 1 , NCALC ) 

HOERC 

167 

MOFRC 

166 

COMPUTE  THE  HYOROOANPIING  AND  AOO  TO  THE  HT  OROFORCE 

MDFRC 

169 

MOFRC 

150 

IE  (CONTROL  (6)  .NE.  YES)  GO  TO  660 

MOFRC 

151 

oo  620  i=i,ncal: 

MOFRC 

152 

620 

HE TEHP (I )=HFTEMP(I ) -H Y 00 A HP < I ) *VR 1 I ) 

MOFRC 

153 

IF  (INO  .EQ.  1)  NRITE(6,99>  T HF7 , ( HFT  EHP  ( I i , 1 = 1 , NCALC  1 

HOERC 

156 

640 

CONTINUE 

MOFRC 

155 

HOFRC 

156 

DISTRIBUTE  THE  MYOBOFORCE  ANO  VIRTUAL  HASS  TO  ALL  HALF  STATIONS 

HOFRC 

157 

MOFRC 

158 

00  690  J=1,NHSTNS 

MOFRC 

159 

< * NAPPLV  ( J) 

MOFRC 

160 

IE  (K  .EQ.  0)  GO  TO  60S 

HOERC 

161 

HE ( J 1 =HF  T EHP I K 1 

MOFRC 

162 

VRTHS ( J) *SHPMS (J) ♦ VMTEMP ( K ) 

HOFRC 

163 

GO  TO  690 

MOFRC 

166 

685 

Hc  ( J ) = 0 • 

HOFRC 

165 

VRTHS(J)  = SMPMS<J) 

HOFRC 

166 

690 

CONTINUE 

HOERC 

167 

CALL  SLAM  < YROOT , YR, YH ,S MFRC , T , SMPTS) 

HOFRC 

168 

DO  693  1 1 S=  1«  1 2 

MDFRC 

169 

ISTN  = IIS  * 9 

HOFRC 

l 70 

693 

HFCISTN)  = HF(ISTM)  ♦ SMPTS(IIS) 

MOFRC 

1 71 

696 

IE  (INO  .NE.  1>  RETURN 

MOFRC 

172 

MRITE  (6  i 99)  SLM,  ( CSNFRC  <I,J)  ,J*1 ,2)  , 1=1, 6) 

HOERC 

173 

MRITE  (6,99)  SMOTH,  (SMPTS(I)  ,1=1,  12) 

MOFRC 

176 

MRITE  (6,  99)  TMF6,  (HF(J),  J*l,  NHSTNS) 

HOERC 

175 

00  700  1=1, NCALC 

MDFRC 

176 

K*NLINV(I> 

HOERC 

177 

700 

VMTEMP(I)  =VRT  MS  OO 

HOERC 

1 78 

MRITE  (6,  99)  T V M,  ( VHTEMPI 1 1 ,l=l,«CALC) 

MOFRC 

179 

RETURN 

MOFRC 

160 

ENTRY  HECIN 

MOFRC 

181 

OLO  T«-1.E20 

MOFRC 

162 

NMSP1»NMSTNS*1 

MOFRC 

163 

nclcmi=ncalc-i 

MOFRC 

186 

INO  * 0 

HOFRC 

185 

U8Y6DXI  * SPEED  / (6*0X1) 

HOE  RC 

166 

OO  25  I»l, NCALC 

MOFRC 

187 

11*1-1 

MOFRC 

166 

IE  (I.EQ.  1)  11*1 

MOFRC 

169 

12=1*1 

HOERC 

190 

IF  (I.EQ.  NCALC)  I2*NCALC 

MOFRC 

191 

25 

78Y60XK  I )* SPEED/  ( (NL  INV  ( 12)  - NLIN  V (1 1 ) ) • OXI ) 

MOFRC 

192 

00  63  J*l, NHSTNS 

MOFRC 

193 

I*NAPPLY  ( J) 

HOERC 

196 

IE  (NAPPLY(J)  .E3.  0)  GO  TO  62 

MOFRC 

195 

VRT  MS (J) *SHP  MS ( J) *AOO  MS(I) 

MOFRC 

196 

GO  TO  63 

HOFRC 

197 

62 

VRT  HS(J)*SHP  MS ( J ) 

MDFRC 

196 

63 

CONTINUE 

MOFRC 

199 

RETURN 

MOFRC 

200 

ENO 

MOFRC 

201 

72 


Table  12  (Continued) 

SUBROUTINE  SI  A M ( YROOT  , Y R , YH  , SMF  RC  , T , SMP  T S) 

SLAM 

7 

c 

THIS  IS  MUL  TI-SL  A M SMOOTHING  ROUTINE 

SLAM 

3 

DIMENSION  YRDOTI9I  ,YR(9I  ,YH(9> 

SLAM 

6 

DIMENSION  SMFRC(6,?>  ,SMPTS(1?) 

SLAM 

s 

DIMENSION  COEF(R,3),HIDTH(10>  , DRH  G T I l 01 

SLAM 

6 

CONMON/CELER/CELT 

SLAM 

r 

c 

THIS  COMMON  IS  SANE  AS  SOI,  EXCEPT  OX  REPLACES  DXI 

SLAM 

8 

COMMON  /MBLOK/  KAG(?l),RINT(?l)f£I(70),SHPNS(70),OAMPC(?0), 

SLAM 

9 

lOX.NEVAl  ,SPEEO,BUOY  SP  GC  9 ) , SCF  I 9>  , AOOMS  ( 9 ) , VRT  MS  I 20 ) , I BEG  , IE  NO 

SLAM 

10 

COMMON  / PL  T SI N/  RA MSLM, SSMPTS 

SLAM 

11 

COMMON  /IHVSS/  IMF S 

SLAM 

1? 

DATA  ISTSLH/0/ 

SLAM 

1J 

c 

SLAM 

16 

c 

VARIABLE  OEFINITION  (SYMBOL! 

SLAM 

15 

c 

SLAM 

16 

c 

BTANG  BUTTOCK  ANGLE  (ALPHA) 

SLAM 

17 

c 

ORANG  OEAO  RISE  ANGLE  (BETA) 

SLAM 

18 

c 

TRANG  TRIM  ANGLE  (TAUI 

SLAM 

19 

c 

PHI  IMPACT  ANGLE  (PHI) 

SLAM 

70 

c 

THETA  NAVE  ANGLE  (THETA) 

SLAM 

71 

c 

SINPMI  SIN  OF  ANGLE  PHI 

SLAM 

22 

c 

COSPMI  COSINE  OF  ANGLE  PHI 

SLAM 

70 

c 

TANPHI  TANGENT  OF  ANGLE  PHI 

SLAM 

26 

c 

SINTHE  SIN  OF  ANGLE  THETA 

SLAH 

75 

c 

COSTME  COSINE  OF  ANGLE  THETA 

SLAM 

26 

c 

TARTME  TANGENT  OF  ANGLE  THETA 

SLAM 

27 

c 

sinaph  sin  of  angle  (Ai.pha  a pnd 

SLAM 

78 

c 

COSAPH  COSINE  OF  ANGLE  (ALPHA  • PHI) 

SLAM 

79 

c 

TMAPH  TANGENT  OF  ANGLE  (ALPHA  t PHI) 

SLAM 

30 

c 

SINTAL  SIN  OF  ANGLE  (TAU  ♦ ALPHA) 

SLAM 

31 

c 

COSTAL  COSINE  OF  ANGLE  I TAU  » ALPHA) 

SLAH 

37 

c 

TANTAL  TANGENT  OF  ANGLE  (TAD  ♦ ALPHA) 

SLAM 

33 

c 

COSBET  COSINE  OF  ANGLE  BETA 

slam 

36 

I c 

TANBET  TANGENT  OF  ANGLE  BETA 

SLAM 

35 

c 

TANXI  TANGENT  OF  ANGLE  XI 

SLAM 

36 

c 

SECBEH  SECANT  OF  ANGLE  BE  TA  ( SUB  EH) 

SLAM 

37 

c 

HI  OTH  ( 10  1 HIOTH  OF  SLAM  REGION  (SMALL  B) 

SLAM 

38 

c 

ORNGT(IO)  HEIGHT  OF  OEAD  RISE  (8) 

SLAM 

39 

c 

COEFI7.3)  POLYNOMIAL  ORDERS  ♦ COEFFICIENTS 

SLAM 

60 

c 

ORAFT  SHIPS  ORAFT  (0) 

SLAM 

61 

c 

FACT*  SLAM  PRESSURE  FACTOR  (K(SUB  XI)) 

SLAM 

(.7 

c 

SNL6T  LENGTH  OF  SLAM  REGION  (DELTA  SMALL  L) 

SLAM 

63 

c 

VLNIMP  IMPACT  VELOCITY  - NORMAL  (V(SUB  N)  ) 

SLAM 

66 

c 

VLTIMP  IMPACT  VELOCITY  - TANGENTIAL  (V(SUB  T)  ) 

SLAM 

65 

c 

VRI9)  RELATIVE  VERTICAL  VELOCITY  (V(SU8  R>) 

SLAM 

66 

c 

YR  ( 9)  RELATIVE  VERTICAL  DISPLACEMENT  (Y(SUB  R)( 

SLAM 

67 

c 

YN ( 9)  AVE  HEIGHT  (Y(SUB  M)) 

SLAM 

68 

c 

SMSTPT  POINT  MHERE  SLAM  STARTS  (X(SU8  0)) 

SLAM 

69 

c 

OX  STATION  LENGTH  (DELTA  X) 

SLAM 

50 

c 

0X7  7 times  STATION  LENGTH  (7»OX) 

SLAM 

51 

c 

0X10  11  TIMES  STATION  LENGTH  (10*OX) 

SLAM 

57 

c 

SMENO  POINT  MHERE  SLAM  ENOS  (X(SU8  E) ) 

SLAM 

53 

c 

XS  DISTANCE  FROM  THE  STERN  AT  HHICH  THE  SLAM  FORCE 

SHOULD  BE  APPL  SLAM 

59 

c 

SMN6T1  HEIGHTS  USED  TO  DISTRIBUTE  THE  SLAM  FORCE 

(M(sua  s*n 

SLAM 

55 

c 

SMMGT?  HEIGHTS  USED  TO  DISTRIBUTE  THE  SLAM  FORCE 

( x ( sue  s-)) 

SLAM 

5b 

c 

SNFRC  (6,7)  SLAM  FORCES  (F(SUB  S)> 

SLAM 

57 

c 

OEMS  MASS  DENSITY  OF  HATER  (RHO) 

SLAM 

58 

c 

ON  SB  Y 7 MASS  DENSITY  OF  HATER  OIVIDEO  BY  7 

SLAM 

59 

c 

EFIHPA  EFFECTIVE  IMPACT  ANGLE  (XI) 

SLAM 

bO 

c 

kslan  number  Oc  the  first  of  THE  THO  STATIONS  AT  HHICH  SLAM  FORCE  SLAM 

61 

c 

IS  APPLIED  ( K ( SUB  S)) 

SLAM 

62 

c 

NEMO  NUMBER  OF  STATION  CLOSEST  TO  X ( SUB  E)  (N(SUB 

E ) ) 

SLAM 

63 

c 

SLAM 

66 

c 

SLAM 

65 

SLAM 

66 

c» 

PROBABLY  SHOULD  BE  MODIFIED  SO  THAT  SLAM  OCCURS  IF 

» SLAM 

b7 

c» 

SMOULDER  IS  ABOVE  HATER,  RATHER  THAN  KEEL. 

• SLAM 

68 

c 

SLAM 

b9 

c 

SLAM 

70 

c 

SLAM 

71 
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Table  12  (Continued) 


TEST  IE  THIS  IS  FIRST  CALL  TO  SLAM 
IF  SO,  SET  SNFRC  * 0. 

IF  (ISTSLH  .NE.  Ot  00  TO  10 
OS  5 1*1,2 
00  5 J*1 , 6 
5 SNFRC  ( J,  1 1 * 0. 

RAVSLM  * 0. 

ISTSLM  * 1 


OE  TERMINE  WHETHER  TO  START  WITH  TTPE1  OR  TYPE  2 SLAM 
10  CONTINUE 

CALL  SLAM  ON  EVERY  STM.  (OR  MULTIPLE  0F»  EVALUATION 
RAVSLM  * 0. 

IIHVS  * I MVS  - A 
KNEVAL  • S 

IF  (IHVS  .OE.  51  KNEVAl  * KNEVAL  • 2»»IIHVS 
IF  (MOO(NEVAl , KNEVAl I .NE.  0)  GO  TO  301 

IF  (YR(9>  .LT.  DRAFT)  GO  TO  800 
80  4 NSLH  * 1 
ICASE  = 1 
SGMFTR  • 1. 

ISGMF  * IFIX(SGNFTR) 

SOI  00  2*0  KBMO*l,4 
KF  MO  * 9 - KBM  0 
TEMP  * YR(KFWO)  - ORAFT 
IF  (TENP’SGNFTR  .GE.  0.)  GO  TO  290 

FIMO  THE  POINT  WHERE  THE  KEEL  TOUCHES  THE  NAVE  SURFACE 

TAMPMI  * (YR(KFHOM)  - VRCKFWOU  / 0X2 
TEMP  * -(TENP2TANPHI) 

SMSTRT  * (2*KFNO»tf  * OK  * TEMP 
TEMP  * TEMP  / 0X2 

COMPUTE  THE  VERTICAL  VELOCITY  A,  THE  POINT  WHERE  THE  KEEL  TOUCHES 
1 HE  HAVE  SURFACE.  IF  THIS  POINT  NOT  MOVING  OOWN,  LOOK  FOR  NEXT 
SLAM  TYPE. 


VRTVLC  * TEMP  • YRD0T<KFH0*1>  ♦ (l.-TEMP)  • YROOT(KFWO) 
IF  (ICASE  .EQ.  2)  GO  TO  803 
IF  (VRTVLC  .GE.  0.)  GO  TO  300 
GO  TO  900 

803  IF  (VRTVLC  .GE.  0.)  GO  TO  804 
GO  TO  908 


oetermine  the  length  of  slam  region 


900  SMLCT  * 0. 

SNEMO  * SMSTRT 
MEMO  * 20  • ISGNF 
00  25  J>1,10 

M * IFIX (SMENO/DX  ♦ .5)  - 10 

IF  ( (M-NENOI  * ISGNF  .GE.  0)  GO  TO  30 

MEMO  • M 

IF  (ISGNF  .EQ.  1)  SMLGT  * DRHGT  ( NEND  ( / TANPMI 
IF  (ISGNF  .EG.  -II  SMLGT  * SMLGT  - ( (ORHGT (NENOI  ♦ SMLGT  * 
t TANPHII  / OSIP  - TANPHIM 


SMEMO  * SMSTRT  - SMLGT 
IF  (SNENO  .GE.  0X20)  GO  TO  29 
IF  (SMENO  .LT.  0X105)  GO  TO  28 
25  CONTINUE 
GO  TO  30 


THE  SLAM  FORCE  SHOULD  BE  APPLIED 
AT  THE  DISTANCE  X ( S>  FROM  THE  STERN 


slam 

22 

SLAM 

23 

SLAM 

24 

SLAM 

25 

SLAM 

2b 

SLAM 

22 

SLAM 

28 

SLAM 

29 

SLAM 

80 

SLAM 

81 

SLAM 

82 

SLAM 

83 

SLAM 

84 

SLAM 

85 

SLAM 

8b 

SLAM 

82 

SLAM 

88 

SLAM 

89 

SLAM 

90 

SLAM 

91 

SLAM 

92 

SLAM 

93 

SLAM 

94 

SLAM 

95 

SLAM 

9b 

SLAM 

92 

SLAM 

98 

SLAM 

99 

SLAM 

100 

SLAM 

101 

SLAM 

102 

SLAM 

103 

SLAM 

104 

SLAM 

105 

SLAM 

10b 

SLAM 

102 

SLAM 

108 

SLAM 

109 

SLAM 

110 

SLAM 

111 

SLAM 

112 

SLAM 

1 13 

SLAM 

114 

SLAM 

115 

SLAM 

11b 

SLAM 

112 

SLAM 

1 18 

SLAM 

119 

SLAM 

120 

SLAM 

121 

SLAM 

122 

SLAM 

123 

SLAM 

124 

SLAM 

125 

SLAM 

126 

SLAM 

122 

SLAM 

128 

SLAM 

129 

SLAM 

130 

SLAM 

111 

SLAM 

132 

SLAM 

133 

SLAM 

134 

slam 

135 

SLAM 

136 

SLAM 

132 

SLAM 

138 

SLAM 

139 

SLAM 

140 

SLAM 

141 

SLAM 

142 

slam 

163 

74 


Table  12  (Continued) 

2 8 

SNEBO  > 0X105 

SLAN 

144 

dO  TO  295 

SLAM 

145 

29 

S1ENO  * 0X20 

SLAB 

146 

295 

SNl&T  s SMSTRT  - SMENO 

SLAN 

147 

30 

XS  • «5. •SHSTRT  ♦ 4 * • SHE  NO ) / 9. 

SLAN 

148 

c 

SLAM 

149 

c 

THE  St  AH  FORCE  HILL  BE  A PPLI E 0 AT  STATIONS  NUHBERED  K(S) 

ANO  K(S) ♦ SLAN 

150 

c 

OS  INC  HEIGHTS  M(S»>  ANO  M(S-t 

SLAN 

151 

c 

SLAN 

152 

SHHCT1  * XS/OX  ♦ .5 

SLAN 

153 

XSLAN  * I F I X ( SHMG Til 

SLAN 

154 

SNH6T1  « SNHGT1  - FLOAT!  kSLAN) 

SLAN 

155 

SMHGT2  ■ 1.  - SMM&T1 

SLAB 

156 

c 

SLAN 

157 

c 

DETERNInE  THE  EFFECTIVE  IHPACT  ANGLE  XI 

SLAM 

158 

c 

SLAN 

159 

COSPHI  » l.  / SORT  ( 1 • ♦ TANPHI*»2I 

SLAN 

160 

SINPHI  * TANPHI  • COSPHI 

SLAN 

161 

SINAPH  • SINAL  • COSPHI  ♦ COSAL  • SINPHI 

SLAN 

162 

COSAPH  * COSAl  • COSPHI  - SINAL  • SINPHI 

SLAN 

163 

TAHAPH  « SINAPH  / COSAPH 

SLAN 

164 

TENPl  * TANBET  / (SINPHI  ♦ TANAL  • COSPHI1 

SLAN 

165 

SEC8EH  • SORT  ( 1.  » TENPl ••  2)  • SGNFTR 

SLAB 

166 

COSBEH  « 1.  / SECBEH 

SLAN 

167 

TANXI  * TANAPH  • SECBEH 

SLAN 

168 

EFINPA  « AT AN (TANXI) 

SLAN 

169 

c 

SLAB 

170 

c 

CALCULATE  THE  TANGENTIAL  ANO  NORHAL  IHPACT  VELOCITIES 

SLAN 

1 71 

c 

SLAN 

172 

TANTHE  • (YM(KFNO*l>  - TH«KFHOII  / 0X2 

SLAN 

173 

COSTHE  * l.  / SORT  ( 1 • ♦ T ANT  ME •• 2 ) 

SLAN 

1 74 

SINTHE  * TANTHE  • COSTHE 

SLAN 

175 

SI  NT  AL  * SINAPH  » COSTHE  • COSAPH  • SINTHE 

SLAN 

1 76 

COSTAL  * COSAPH  * COSTHE  - SINAPH  • SINTHE 

SLAM 

177 

TENP  = VRTVLC  • COSTAL  ♦ ( SP£ED*CEL  T)  • SINTAL 

SLAB 

1 78 

VLNINP  » TENP  • COSAPH  / COSTAL**2 

SLAM 

1 79 

VLTINP  * TENP  • SINAPH 

SLAB 

180 

c 

SLAB 

181 

c 

CALCULATE  THE  FACTOR  K(XI)  (FACTK) 

SLAM 

182 

c 

SLAB 

183 

IF  (EFINPA  .GE.  . 0 3839T2)  GO  TO  85 

SLAM 

1 84 

FACTK  =■  POLT(COEF(  1,  1)  .EFINPA) 

SLAM 

185 

GO  TO  110 

SLAM 

186 

as 

IF  (EFINPA  .GE.  .191986)  GO  TO  90 

slab 

187 

FACTK  = POLY(COEr (1 ,2) .EFINPA 1 

SLAB 

1 60 

GO  TO  110 

SLAN 

1 89 

90 

IF  (EFINPA  • GE . .349066)  GO  TO  100 

SLAM 

190 

FACTK  = FOLTICOFFd, 3)  .EFINPA) 

SLAB 

191 

GO  TO  110 

SLAM 

192 

c 

.26856421/288.  « . 0 0 2 6 68  6 2 2 4 2 

SLAB 

193 

c 

.00266862242  • 2.  4624  = . 00658452141 

SLAM 

194 

10C 

FACTK  * . 00266862247  • . 00658452141  / TANXI**2 

SLAB 

195 

c 

SLAN 

196 

c 

CALCULATE  THE  SLAN  PRESSURE 

SLAN 

197 

c 

SLAM 

198 

110 

PRESS  » FACTK  • VLNINP**  2 • 144. 

SLAB 

199 

PRESS  = PRESS  ♦ (.5  • VLTINP**2  • COSBEH) 

SLAN 

200 

PRESS  * PRESS  • 0ENS  / 2240. 

SLAB 

?01 

c 

SLAM 

202 

c 

CALCULATE  ANC  DISTRIBUTE  THE  SLAN  FORCE 

SLAN 

203 

c 

SLAB 

204 

TENP  « COSPHI  • COSTHE  - SINPHI  • SINTHE 

SLAN 

205 

TENP  * .5  • PRESS  • DRHGT(NENO)  • SGNFTR  • SNLGT  • TENP 

SLAM 

206 

c 

CHANGE  FORCE  TO  FORCE/FOOT 

SLAB 

207 

TENP  * T E HP/O X 

SLAB 

208 

c 

SLAM 

209 

TENP*5.*TEHP 

SLAB 

210 

c 

TENPORART  INCREASE  IN  SLAN  FOR  DISPLAY  PURPOSES 

SLAN 

211 

1 

75 
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c 

SLAN 

212 

RA  WSLH  > RAWSLH  ♦ TFHP 

SLAN 

213 

TtNCUT  = VRUFWOI  - 0RHGT  (KSL  AN- t 0 1 

SLAH 

214 

SNFRC  ( 1,  NSL  N)  * FLOATIKSLAHI 

SLAN 

215 

SNFRC  (2,  NSLHI  * SHNGT2  • TENP 

SLAN 

216 

SNFRC  C3, NSLH)  • SNWGTl  • TENP 

SLAN 

217 

SNFRC  <4,  NSL  HI  * YRIKFNd) 

SLAN 

218 

SNFRC  (9,  NSL  N)  = TINCUT 

SLAN 

219 

SNFRC(6,NSLNI  = KFNO 

SLAN 

22  0 

IF  CICASE  .EQ.  1)  GO  TO  300 

SLAN 

221 

NS  L N = NSLH  - 1 

SLAN 

2 22 

ICASE  » 1 

SLAN 

223 

SGNFTR  » 1. 

SLAN 

2 24 

ISGNF  • IFIXIS&NFTRI 

SLAH 

225 

290 

CONTINUE 

SLAN 

226 

IF  (ICASE  .EQ.  1»  GO  TO  300 

SLAN 

227 

00  299  NNSLN=  1 ,2 

SLAN 

228 

IF  1 SNFRC  < l .NNSLNI  .EQ.  0.1  GO  TO  299 

SLAN 

229 

OLDKFM  > SNFRC  16.  NNSLNI 

SLAN 

230 

IF  (YR(OLOKFM)  .LE.  SNFRC (9, NNSLNI  1 GO  TO  602 

SLAN 

231 

TINFACT  * (SHFRCIS, NNSLNI  - YRULOKFMII  7 

SLAN 

2 32 

1 (SHFRCIS, NNSLNI  - SNFRC  (4,NNSLHII 

SLAN 

233 

SNFRC  12. NNSLNI  * SNFRC  12  , NNSL  Nl  • TINFACT 

SLAN 

234 

SNFRC (3, NNSLNI  « SNFRC  (3, NNSLNI  • TINFACT 

SLAN 

235 

SNFRC  <4,  NNSLNI  = YRIOLOKFHI 

SLAN 

2 36 

299 

CONTINUE 

SLAN 

237 

GO  TO  300 

SLAN 

236 

60  2 

SNFRC  11. NNSLNI  < 0. 

SLAN 

2 39 

IF  ( NNSL N .EQ.  11  GO  TO  299 

SLAN 

240 

GO  TO  300 

SLAN 

241 

600 

NSLN  « 2 

SLAN 

2 42 

ICASE  * 2 

SLAN 

243 

SGNFTR  « -1. 

SLAH 

244 

ISGNF  * IFIXISGNFTRI 

SLAN 

245 

GO  TO  601 

SLAN 

246 

300 

CALL  SSNOOTH  <SH  FRC , SNP TS ,1 1 281 1 

SLAN 

247 

361 

RETURN 

SLAN 

246 

C 

SLAN 

249 

C 

SLAN 

2 50 

ENTRY  INSNIN 

SLAN 

251 

c 

INSNIN  SETS  OEFAOL  TS 

SLAN 

2 52 

RETURN 

SLAN 

253 

c 

SLAN 

2 54 

c 

SLAN 

2 55 

ENTRY  INSNOT 

SLAN 

2 56 

c 

INSNOT  “REAOS”  CAROS 

SLAN 

257 

REAO  <9,10001  ORAFT.OENS.BTANG.ORANG 

SLAN 

2 58 

1000 

FORNAT  (4F10.0I 

SLAN 

2 59 

REAO  <9,  10101  ( (COEFII,  11  , 1-1,81,  <COEF  (1,21 , 1 = 1,61  , 

SLAN 

260 

l<COEF(.,3l, I«1,8I  , <WIDTM< II , 1*1, 101 1 

SLAN 

2 61 

1(10 

FORNAT  I8F10.0I 

SLAN 

2 62 

REAO  (9,10201  BSLP, 11261 

SLAN 

2 f - 

1020 

F1RNAT  (Fit. 0,1161 

SLAN 

264 

RE  TURN 

SLAN 

265 

C 

SLAN 

2 66 

c 

SLAN 

267 

ENTRY  IHSNFIN 

SLAN 

268 

c 

INSNFIN  PRE-CONPUTES  ANO  WRITES  DATA 

SLAN 

2 69 

c 

SLAN 

2 70 

WRITE  (6,19901 

SLAN 

2 71 

1990 

FORNAT  (IH1.10NINPUT  OAT  A I 

SLAN 

2 72 

WRITE  (6,  20001  DRAFT,  OENS.BTANG,  ORANG  , OX 

SLAN 

2 73 

2000 

FORNAT  <1HO,7X,22NORAFT  * SHIPS  ORAF  T = , El  3.  6 , 1 X ,2HF  T/ 

SLAN 

2 74 

11 N • FX.31HOENS  * NASS  OENSITY  OF  WATER  = , E 13. 6 , 1 X , 1 2HSLUGS/CU.  FT . 

SLAN 

2 75 

2/19  • 7X,  31HBTANG  < ALPHA,  BUTTOCK  ANGLE  « , E 1 3. 6 , IK,  7HOEGREE  S/ 

SLAN 

2 76 

31H  , 7X , 3 l MORANG  * BETA,  DEAORISE  ANGLE  * ,E 1 3. 6 , 1 X, 7HDEGREES/ 

SLAN 

277 

41 N , FX.22HOX  « STATION  LENGTH  > , E 13.  6, 1 X ,2HFT  1 

SLAN 

278 

WRITE (6,20091  BSLP 

SLAN 

2 79 

2069 

FORNAT  (IN  ,7X,36H8SLP  • SLOPE  RELATEO  TO  WIDTH  ARRAY  * .E13.6I 

SLAN 

260 

76 
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C CHANGE  ALPHA  A NO  9F  TA  TO  RADIANS  SLAM 

STARS  « BTANb  • . 3 1745329752  SLAM 

ORANG  * DRANG  • . 9 l 745329752  SLAM 

C SLAM 

SI  UAL  » SIN(BTANG)  SLAM 

COSAL  * COS  <BT  ANG I SLAM 

TANAL  > T AM  <BT  ANSI  SLAM 

COSBET  = COS < OR*  NG I SLAM 

TANBET  • TAN(ORANGI  SLAM 

OX?  * 2.  • OX  SLAM 

DA  1 0 * 10.  * OX  SLAM 

0A19S  * 10.5  • OX  SLAM 

0X70  = 71.  • OX  SLAM 

0RS8Y?  = OENS/2.  SLAM 

00  1 K*1  , 10  SLAM 

1 ORNGT  (A)  3 NIOTH(A)  • TANBET  SLAM 

HRITE  <6,70101  SLAM 

7010  FORMAT  < 1H-,17MPRE-C0HPUTE0  OA  TA  I SLAM 

NRITE  <6,70701  SIM  AL  , COS  AL  , T A NAL  , COSSET,  TANBE  T SLAM 

7070  FORMAT  <1M0 , 7X , 74NSI NAL  = SINE  OF  ALPHA  * .E13.S/  SLAM 

11 M ,7X,?6HC0SAL  * COSINE  OF  ALPHA  = ,E13.6/  SLAM 

71M  ,7X,?7HTANAL  > TANGENT  OF  ALPHA  * ,£13.6/  SLAM 

31M  , 7X.76HC0SBET  * COSINE  OF  BETA  = ,E13.6/  SLAM 

AIN  , 7X,7  7HTANBE  T * TANGENT  OF  BETA  = ,£13.61  SLAM 

NRITE  <6,70301  0X7 , DX l 0, DNSBT 2 SLAM 

7030  FORMAT  < 1 H ,7X,?9MOX?  * 7.  • STATION  LENGTH  * , E l 3. 6 , IX  , 7HFT  / SLAM 

11H  .7X.30HOX10  * 10.  • STATION  LENGTH  = ,El  3.6,  IX  ,7MFI/  SLAM 

71N  ,7X,38HONSBY?  * MASS  DENSITY  OF  HATER  / 2.  = , £13. 6, IX,  SLAM 

317HSLUGS/CU.FT  .1  SLAM 

NRITE  <6,70401  SLAM 

7040  FORMAT  < 1 HO , 1 4X, 1 9 HHE I GH T OF  OEA OR ISE , 14 X , 2 OH  Hi  0 T H OF  SLAM  REGION/  SLAM 

1 IN  ,18A,9H0RHGT<181  , 74  X,  9HHI  0 TM<  1 0 1 1 SLAM 

NRITE  <6,20501  < (ORMGTTI 1 ,HI0TH(I1 1 , I =1, 101  SLAM 

2050  FORMAT  <10<1H  , 1 4A ,E 1 3 .6 , 1 X, 7HFT , 1 7X , E13 . 6, 1 X ,ZHF T/ I l SLAM 

HRITE  <6,70601  SLAM 

2060  FORMAT  < 1H-,14X,9MC0EF<8  , II  , 14X,9HCOEF<8,?»  ,14X,9HC0EF  <8,  31 1 SLAM 

HRITE  <6,70701  HCOEF  II,  1 > ,COEF II  ,21  , COEF  II  , 3 1 1 , 1 ®1 , 8 1 SLAM 

2070  FORMAT  <8<1H  , 1 1 X,  El  3 . 6,  1 0 X,  E 1 3.  6 , 1 0 X , El  3 . 6/1  I SLAM 

RETURN  SLAM 

ERO  SLAM 


281 
782 
28  3 

284 

285 
2 8b 

287 

288 
289 
2 90 
291 
2 92 
293 
2 94 
2 95 
2 96 

297 

298 

299 

300 

301 

302 

303 

304 

305 
30b 

307 

308 

309 

310 

311 
317 

313 

314 

315 
31b 

317 

318 

319 

320 
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Table  12  (Continued) 


SUBROUTINE  SSNOOTM  1 SMERC  * SNP  T S,  I 1281  1 

ssnootm 

2 

DIMENSION  SNERC ( 6 , 2 ) * SS  HART  112,  1 2 81  ) , AC0fE(lZ81),  SMPTSI12) 

S SMOOTH 

3 

OI  NENSION  <STATN(12> 

SSMOOTH 

b 

COMMON  /IMVSS/  IH¥S 

SSHOOTN 

5 

CONNON  / PL  TSL  M/  RA MSL N , S SHP T S 

SSMOOTH 

b 

O A T A PI  /3. 14159265/ 

SSMOOTH 

7 

ORTA  ISTSSN  /0/ 

SSMOOTH 

8 

SSNOOTM 

9 

IF  THIS  IS  FIRST  CALL  TO  SSHOOTN,  OO  SONE  INITIALIZING 

SSMOOTH 

10 

IF  (ISTSSN  .NE.  0)  GO  TO  1010 

SSMOOTH 

11 

SUNCF 1 * 0. 

SSMOOTH 

12 

S JNCF 2 * 0. 

SSMOOTH 

1J 

SUNCF 4 * 0. 

SSNOOTM 

lb 

SUNCF8  * 0. 

SSMOOTH 

15 

OO  1001  1:1,11281 

SSMOOTH 

16 

ACOEF(I)  * SIN  (PI  • ((F.OAT(I)-l.)  / (FL  OAT  ( 1 128  1 1 - 1 1 >1 

SSMOOTH 

12 

ion 

SUNCF 1 * SUNCF 1 . ACOEFtI) 

SSMOOTH 

18 

SJNCFl  * 1.  / SUNCF  1 

SSMOOTH 

19 

OO  1(21  1*1,112  1,2 

SSMOOTH 

20 

1021 

SUNCF 2 * SUNCF2  * ACOEF(I) 

SSMOOTH 

21 

SJNCF2  * 1.  / SUNCF2 

SSMOOTH 

22 

OO  10  41  1*1,11281,1, 

SSMOOTH 

23 

101. 1 

SUNCF4  * SUNCFr  ♦ ACOEF(I) 

SSMOOTH 

2b 

SUMCFb  * l.  / suh:f*» 

SSMOOTH 

25 

OO  1081  1*1,11281,8 

SSMOOTH 

26 

1081 

SUNCF6  * SUNCF  8 ♦ ACOEF(I) 

SSMOOTH 

22 

SUNCF8  = 1-  / SUNCF8 

SSMOOTH 

28 

DO  1003  1*1,12 

SSMOOTH 

29 

1003 

SNPTS(I)  * 0. 

SSMOOTH 

30 

OO  10  0<*  1*1,12 

SSMOOTH 

31 

1004 

<STATN(I)  * 0 

SSNOOTM 

32 

SSNPTS  * 0. 

SSMOOTH 

33 

<9*0 

SSNOOTh 

3b 

<E  * 0 

SSMOOTH 

35 

<89  * 1 

SSMOOTH 

3b 

IMVSLST  * 1 

SSMOOTH 

32 

ISTSSN  * 1 

SSMOOTH 

38 

SSMOOTH 

39 

1010 

CONTINUE 

SSMOOTH 

bO 

SSMOOTH 

bl 

OO  NOT  SNOOTH  if  there  HAS  NOT  BEEN  ANT  SLAMMING  YET 

SSMOOTH 

b2 

IF  (SNFRC  12,1)  .El.  0.  .ANO.  SNFRC  ( 2,2 ) .EQ.  0.)  GO  TO 

50  00 

SSMOOTH 

b3 

SSMOOTH 

bb 

SSMOOTH 

45 

IF  (IHVS  .GE.  11  GO  TO  1020 

SSMOOTH 

bb 

NRITE (6, 2 ) IHVS 

SSMOOTH 

b 7 

SSMOO  TH 

GO  TO  5000 

SSMOOTH 

49 

1020 

IF  (S)»RC)1,1I  .NE.  0.  .ANO. 

SSMOOTH 

SO 

<SMFRC<1,&)  .IT.  10.  .OR.  SHFRC(l'l)  .GT.  2 0.11  GO 

TO  10  25 

SSNOO  TH 

51 

IF  ( SNFRC (1,2)  .El.  0.  .OR. 

SSMOOTH 

52 

(SNFRC  (1,2)  .GE.  10.  .AND.  SNFRC(1,2)  .LE.  20.))  GO 

TO  1030 

SSMOOTH 

53 

1025 

NRITE  (5,8)  SNFRC)  1,  1)  .SNFRC  ( 1,2) 

SSMOOTH 

5b 

e 

FORMAT  (1m1,*SNFRC(1,1)  = *,E13.6,5X,*SMFRC(1,2)=*,E13.6,*. 

SSMOOTH 

55 

SSMOOTH 

5b 

GO  TO  5000 

SSMOOTH 

52 

SSMOOTH 

58 

1030 

CONTINUE 

SSMOOTH 

59 

IF  (IHVS  .GE.  5)  GO  TO  5 

SSMOOTH 

60 

IF  (IHVS-2)  1,2,3 

SSMOOTH 

bl 

1 

I HI NY  * 8 

SSNOO  IH 

62 

NMOLE  TINE  INCREMENT,  IMVS*1,  USE  EVERY  8 Th  . LOCATION 

SSMOOTH 

63 

T<  * SUNCF 8 

SSMOOTH 

6b 

GO  TO  IQbO 

SSMOOTH 

65 

SSMOOTH 

6b 

2 

INANY  * 4 

SSMOOTH 

62 

1/2  TINE  INCREMENT,  IHVS *2 , USE  EVERY  ATM.  LOCATION 

SSMOOTH 

68 

T<  * S1FTCE4 

SSMOOTH 

69 

GO  TO  1040 

SSMOOTH 

20 

SSMOOTH 

21 

1 

INANY  * 2 

SSMOOTH 

22 

78 


o o o o ooo  ooooooooooooooooooo 


Table  12  (Continued) 


C 1/4  Tint  INCREMENT,  IMVS*3,  USE  EVERY  OTHER  LOCATION 

TK  » SUNCF2 
GO  TO  1040 

C 

4 INANY  * 1 

C 1/8  OR  SMALLER  TIME  INCREMENT,  tHVS=4  OR  MORE,  USE  EVERY  LOCATION 

TK  * SUNCFt 

C 

1040  CONTINUE 


RUT  THE  SLAM  FORCE  INTO  THE  ARRAY  TO  BE  SNOOTHEO. 

REPEAT  VALUE  AS  MANY  TINES  NECESSARY  FOR  THE  TIME  INCREMENT. 


A SLAM  CAN  OCCUR  ON  STATION 
IF  SLAMMING  STATION  NAS  10 

11 
1? 
13 
1 A 

15 

16 
1 7 
16 

19 

20 


NUMBERS  10  THROUGH  20 
THEN  1ST  A TN  ANO  K ARE  1 

2 

3 

4 

5 

6 

r 

B 

9 

10 

11 

12 


00  100  I T YPE  = 1 , 2 

ISTATN  » IF IX  (SMFRC  Cl  ,1  TYPE!  -9.1 
IF  (SMFRC  CLtll  .E9.  0.)  ISTATN  = -1 

IF  (SMFRC 11,2)  .E0.  0.  .AND.  ITYPE  .EQ  • 2)  GO  TO  150 
IF  (ITYPE  .EG.  2)  GO  TO  96 
AS  * RE  ♦ 1 

CHECK  IM VS  AS  IT  COMES  IN.  IF  IT  IS  GREATER  THAN  LAST  TIME, 

then  the  Interval  has  been  halved  and  the  ssmary  must  be 

RENRITTEN  STARTING  AT  THE  PREVIOUS  PLACE  (THAT  IS  ABB). 

IF  « I MVS  .GT.  IHVSLST)  KB  * KBB 

KE  * KB  ♦ IMANY  - 1 

DO  99  K*  1 , 1 2 

OO  99  II1*KB,KE 

III  MOD  > MOOCIII, 11281) 

IF  (IIINOO  .EQ.  0)  II I N 00  > 11281 


SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOO  TH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 
SSMOOTH 


73 

74 

75 

76 

77 

78 

79 

80 
61 
82 

63 

64 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 


113 
1 14 
115 


IF  (K  .EQ.  ISTATN  .OR.  K .EQ.  ISTATN*!)  GO  TO  90 
SSNARYU, IIINOO)  > 6. 

GO  TO  99 

90  IF  (K  .EQ.  ISTATN*  1)  GO  TO  95 
SSMARY(K,IHMOO)  » SMFRC  (2,1  TYPE ) 

GO  TO  99 

95  SSMARY  (K,  IIIMOO)  « SMFRC  ( 3,1  TYPE) 

99  CONTINUE 

IF  (ISTATN  .LT.  II  GO  TO  100 
KSTATN  (ISTATN  ) * 11281 
KSTATN  (ISTATNU)  > 11281 
160  CONTINUE 

96  ISTATN  • IFIX  (SMFRC(1,2)  - 9.) 

DO  98  III *KB  ,KE 

IIINOO  • MOO ( 1 11,11281) 

IF  (IIIMOO  .EQ.  81  IIINOO  • 11281 

SSNARVUSTATN  , IIIMOO)  * SSMARY  ( ISTATN  .IIIMOO)  » SMFRC  (2,2) 
96  SSNARV(ISTATN«1, IIIMOO)  « SSMARY  ( I STA  TN*  1 , 1 IIMOO)  • SMFRC(3,2) 
KSTATN  (ISTATN  ) * 11261 
KSTATN  (ISTATN*1)  • 11261 
150  CONTINUE 
KBS  • KB 


INITIAII2E  THE  SMOOTHED  POINTS. 
OO  318  1*1,12 
310  SNPTSCI)  * 0. 


SSMOOTH  116 
SSMOOTH  117 
SSMOOTH  116 
SSMOOTH  119 
SSMOOTH  120 
SSMOOTH  121 
SSMOOTH  122 
SSMOOTH  123 
SSMOOTH  124 
SSMOOTH  125 
SSMOOTH  126 
SSMOOTH  127 
SSMOOTH  126 
SSMOOTH  129 
SSMOOTH  130 
SSMOOTH  131 
SSMOOTH  132 
SSMOOTH  133 
SSMOOTH  134 
SSMOOTH  135 
SSMOOTH  136 
SSMOOTH  137 
SSMOOTH  138 
SSMOOTH  139 
SSMOOTH  140 
SSMOOTH  141 
SSMOOTH  142 
SSMOOTH  143 


79 
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Tabic  12  (Continued) 


c 

r, 


3(0 


Ml 


350 

C 


50  0 0 


SSNOOTH 

1 44 

oeternine  the  shootheo  points  by  •flip-flop*  HUL  TIPLICATION 

S SMOOTH 

145 

(Btc  « NAXB<1,KF-CI1281-1>> 

SSMOOTM 

146 

09  301  K* 1* 12 

SSNOOTH 

147 

IF  IKSTATNIKI  .IE.  0)  00  TO  301 

SSMOOTH 

1 40 

09  300  IC*KBIC»KEt I MANY 

SSNOOTH 

149 

ICNOD  * HOD<IC,Iim> 

SSNOOTH 

150 

IF  (ICNOO  .EO.  01  ICMOO  * 11201 

SSNOOTH 

151 

18  » KE  - IC  ♦ 1 

SSNOOTH 

152 

SNPTSTO  * SMPTSOO  ♦ SSH  ARY  ( < , I B ) • AC0EF(  ICMOOI 

SSNOOTH 

1 53 

CONTINUE 

SSNOOTH 

154 

SNPTS(K)  * SMPTS<K>  • TK 

SSNOOTH 

155 

KSTATNKI  • KSTATNOO  - INANY 

SSNOOTH 

15b 

CONTINUE 

SSNOOTH 

157 

SSNOOTH 

150 

SUN  ALL  THE  SHOOTHEO  POINTS  FOR  PLOTTING  T777777777777777777777777 

SSNOOTH 

159 

SSNPTS  * 0. 

SSNOOTH 

160 

00  350  K* 1 » 11 f 2 

SSNOOTH 

161 

SSNPTS  » SSHPT  S * SHPTSOCI  ♦ SHPTS(K*1> 

SSNOOTH 

162 

SSHOO  TH 

163 

IHYSLST  « IHWS 

SSNOOTH 

164 

RE  TURN 

SSMOOTH 

165 

END 

SSNOOTH 

166 

80 


Table  12  (Continued) 


SUBROUTINE  SEA  GEN ( YM, YMDOT, T MOD, CEL , T) 

DIMENSION  YNI9)  , YNOOT  (9)  ,YMOO |9>  , ACOSX  <3, 9)  ,ASI  NX  (3, 91  , 
t COSONTI 3) , SINONT 13)  ,ANP  ( 3)  , CKI  31  . TAU<3  ) ,XK  (9)  . 

2 ONEGA  ( 31  , ONG  SQ<3> 

CONHON/f  BLOK/FI  FI  OA<  61  ,IF  (6) 

CONNON/INPT2/J,ISFIELO,BUFFERI60>  , ICFIEIO 

CONNON  / H BL  OK / < A G I 2 1 ) ,R  I N T < 2 1 1 . t I < 2 0 I . S HPi  S ( 20  ) , 0 AMPC  ( 2 0 ) , 

1 Oil  ,NEV  At  .SPEED,  BUOY  SPG  (9)  , SCF  19)  , AODNS19) , VRT  NS(  Z 0)  , I BEG,  IE  NO 
DATA  Tl,  T?,  13  / 

1 -28.409453*2,  -25.51319346,  12.02731  343  /, 

2 OIFF , AMP  / 

3 .2627819036,  3.270009343,  2*5.5261579  / 

OO  130  I = 1,3 

COSONT  (I ) * COSONEGA(I)  *t> 

130  SINOHTII)  » SI  N1  ONEGA  II)  • I ) 

OO  160  K * 1,9 
TXK  * T * XK(K) 

IF  ITXK.GT.T1)  GO  TO  120 
YNIK)  > 0. 

TWOOTIK)  * 0. 

YNOOIK)  * 0. 

GO  TO  160 

120  IF  ITXK.GT.T3)  GO  TO  140 

YNIK)  * ASINXII, K>  • COSONTll)  * ACOSXlt.K)  • SINONT  (1)  * OIFF 
YNOOTIK)  » ONEGA  (1)*  1 ACOSX  <1,10  *COSONT(  1 ) - ASI  NX  ( 1 , < ) *S  I NON  I ( 1)  ) 
YNOOIK)*  -ONG  S0(l)*YM(K) 

IF  ITXK.GT.  T2)  GO  TO  160 
YNIK)  * Cl  • 1C  2* YNIK)  ) 

YNOOTIK)  * Cl  » YNOOTIK) 

YNOOIK)  > Cl  ' YM 00 1 K I 
GO  TO  160 
140  YNIK)  * 0. 

YNOOTIK)  * 0. 

YNOOIK)  * 0. 

00  150  I * 2,3 

TEMP*  ACOSX  1 1 ,K) *COSOWT  tl  ) -AS1NX II , K)  » SINONT  (1) 

YNIK)  * YMIK)  ♦ TENP 

YNOOTIK)  * YMOOTI  K) -ONEGA  II)  » I ASINXII  ,<)  *COSOHT  I I ) 

1 » ACOSX!  I,K>  ‘SINONT  (1 1 ) 

150  YNOOIK)  * YMOOIKI  - ONG  SQII)*TENP 
160  CONTINUE 
CEL  « CELT 
RE  TURN 

ENTRY  INSGFI N 

OO  210  I * 1,3 

ONG  SQII)  * ONEGA  1 1 ) •• 2. 

210  CKII)  * • 0 l l*ONE  GA 1 1 ) 

CELT  * II  - .011*SPEEO)  / .011 
TENP  = 2.5 
OO  250  < * 1,9 

IFIK  .EO.  1)  GO  TO  230 

TENP  * 1.  * 2. *FL  OAT  IK) 

230  XKIK)  * OXI*TEN» 

OO  240  I * 1,3 

TENP  * CK  II) *XKIK)  ♦ TAUII) 

ACOSX  1 1,  K > * AN»(I  )*COSI  TENP) 

240  ASINXII. K)  « AN»II ) *SINI TENP) 

FOR  LATER,  XKIK)  l*K*XII  IS  USED  TO  SELECT  Ml  OR  M2. 

XKIK)  * .Oll'XKIK) 

250  CONTINUE 

Cl  * IANPI1)*0IFF)  , I2.*ANPI1)  I 
C2  * ANPI1I  - 01 CE 
NRITE  16,10) 

10  FORMAT  I 1M-,*SEAGEN  IS  USING  DISCRETE  MAKE  TRAIN*) 

RE  TURN 

ENTRY  INSEGIN 
RETURN 

ENTRY  INSEGDT 

CALL  FIEL0SI5252B, 6, BUFFER) 

OO  310  I » 1,3 
TAUII)  • FIELOAtl  » 3) 

310  ONEGA  1 1)  * FIELOAtl) 

RETURN 

ENO 


OSTMT 

DSTMT 

OSIMT 

OSTMT 

OSTMT 

OSTMT 

COl 

COl 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

DSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

DSTMT 

DSTMT 

OSTMT 

DSTMT 

DSTMT 

OSTMT 

OSTMT 

DSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

DSTMT 

DSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

DSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 

OSTMT 


2 

3 

4 

5 

6 
r 
2 
3 
9 

13 

11 

12 

13 

14 

15 

16 
17 
13 
19 
23 
21 
22 

23 

24 

25 

26 

27 

28 
29 
33 

31 

32 

33 

34 

35 

36 

37 
19 
39 

43 

41 

42 
4 3 

44 

45 

46 

49 

49 

S3 

51 

52 

53 

54 

55 

56 

57 

58 
*9 
60 
61 
62 

63 

64 
bb 
bb 

67 

68 

69 

70 

71 

72 

73 
7. 
7 S 
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Table  12  (Continued) 


SUBROUTINE  SEAGEN  CYM,  YMOOT,  YMOO, CEL  , Tl  SINMV 

sinmv 

CEl  * CELERITY,  MAVE  SPEEO  SIMMY 

DELTA  * (GRAVITY  • PI)/(CEL  * SPEED)  * TINECSUB  II  - TIME  (SUB  0)  SIMMY 
X ( SUB  1.....9)  * ARRAY  OE  THE  9 STATIONS  OF  THE  SHIP  SIMMY 

XK(I)  * K • X < I T SIMMY 

XXII,... ,9)  IS  T I ME  ( SUB  0)  FOR  9 STATIONS  OF  THE  SKIP  SIMMY 

ONEGAM  = FREQUENCY  OF  THE  NAVE  SIMMY 

ONGMSQ  > ONEGAM”?  SINMY 

ONEGAE  = FREQUENCY  OF  ENCOUNTER  SIMMY 

ONGESQ  * ONEGAE”?  SINMV 

SINONT  * SIN(OHEGAE»TIHE)  = SIN  OF  THE  ANGLE  MI  T M TINE  SINMY 

COSONT  * COS(OHEGAE»TIHE>  = COSINE  OF  The  ANGLE  MITH  TINE  SINMY 

AS  I NX  * MAYE  HEIGHT  • SI  N I K • XISUB  II)  SINMY 

AC9SX  * MAYE  HEIGHT  • COS(K  • XISUB  I))  SINMY 

SPEEO  * U SINMY 

TINE  = T SINMY 

GRAY  = GRAVITY  * 32.23  SINMY 

VM  * 1/ONEGAM  SINMV 

YMOOT  = FIRST  DERIVATIVE  OF  t/ONEGA  = VELOCITY  OF  NAVE  HEIGHT  SINMY 

AT  SPECIFIC  TIME  * LOCATION  SINMY 

YMOO  * SECONO  DERIVATIVE  OF  1 /ONE G A * ACCELERATION  OF  MAYE  HEIGHT  SINMV 

AT  SPECIFIC  TIME  ♦ LOCATION  SINMY 

MVLGT  * LAMBDA  * HAVE  LENGTH  SINMV 

PI  = 3.19159265  SINMY 

MYHGT  * M * MAVE  AMPLITUDE,  MAVE  HEIGHT  SINMV 

SINMY 

CONNON/CELER/CELT  SINMY 

C0HN0N/FBL0K/FAI6)  ,IF(6)  SINMY 

CONHON/INPT2/J,ISFIELD,BUFFER(60)  .ICFIELD  SINMY 

COMMON  /HBLOK/  XAGI21  > ,RINT(21),EI  (201  ,SHPHS(2C)  ,nAHPC(20l,  C01 

1 OXI.NEVAL, SPEEO, BUOY  SPG  ( 9)  , SCF  ( 9)  , A ODNS  (9  ) , VR  TNS  (20  I , I BEG,  IE  NO  COl 

OINCNSION  X(9>,XK(9),ASINX(9),AC0SX(9>,YM(9I,YM00T(9I,YMD0(9>  SINMV 

REAL  K SINMV 

I OATA  GRAV/32.23/,PI/3.  14159265/  SINMV 

DATA  X/2. 5, 5. ,7. ,9. ,11. ,13. ,15. ,17. ,19./  SINMV 

C SINMY 

CEL  * CELT  SINMV 

OHGTIH  * ONEGAE  • T SINMY 

SINONT  * SINCOHGTIN)  SINMV 

COSONT  * COS  (OHGT  I HI  SINMY 

DO  900  1*1,9  SINMV 

IF  (MYHGT. EQ.O.)  GO  TO  210  SINMY 

IF  (ONGTIN.GT. XK( 1 1 ) GO  TO  230  SINMY 

210  VM(I>  * 0.  SINMV 

YMOOT  II)  • 0.  SINMV 

Y MOD ( I > * 0.  SINMV 

GO  TO  900  SINMV 

23C  YMII)  * ASINX(I)  » COSONT  ♦ ACOSX(I)  • SINOHT  SINMY 

YM  DOT  1 1 1 * ONEGAE  • (ACOSX(I)  • COSONT  - ASINX(I)  • SINONT)  SINMV 

YMOO  II)  * - (ONGESQ  * YMII))  SINMY 

IF  (OHGTIH  .GT.  XK(I>  ♦ PI)  GO  TO  900  SINMY 

YMII)  * .5  • (YMII)  - MYHGT)  SINMY 

YMOO T (II  « .5  • YMOOT(I)  SINMV 

YMOO ( I ) * .5  * YMOO ( I ) SINMY 

900  CONTINUE  SINMY 

RETURN  SINMY 

C SINMY 

ENTRY  INSEGIN  SINMY 

C INSEGIN  SETS  DEFAULTS  SINMV 

ONEGAM  • 0.  SINMV 

MYHGT  * 0.  SINMV 

RETURN  SINMY 

C SINMV 

ENTRY  INSEGOT  SINMY 

C INSEGOT  -READS"  CAROS  THAT  ARE  INPUT  SINMV 

CALL  FIELOS  (50009 ,6, BUFFER)  SINMV 

ONEGAM  • F A ( 1 ) SINMV 

MYHGT  * F A 1 2 ) SINMY 

RETURN  SINMV 

C SINMY 


2 

1 
9 

5 

6 
7 
0 
9 

10 

11 

12 

li 

19 

15 

16 

17 

18 

19 

20 
21 
22 
23 
29 
25 
2b 
27 
20 

29 

30 

31 

2 
3 

33 

39 

35 

36 

37 
30 
35 

90 

91 

92 

93 
99 

95 

96 

97 

90 

99 

50 

51 

52 

53 
59 

55 

56 

57 

58 

59 

bj 

61 

62 

63 

69 

65 

66 
67 

bj 

69 

70 

71 
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Table  12  (Continued) 


€ *1  TRY  IMSGFIN 

SIMMY 

72 

C IMS&FlM 

SETS  UP  PATA  ♦ WRITES  OUT  Input  DATA 

SIMMY 

73 

3MGMSQ  * 

OMEGAW  ••  2 

SIMMY 

76 

OMFGAE  = 

OMEGAW  » (SPEEO  • OMGWSQ  / GRAY  > 

SIMMY 

75 

OMGESQ  * 

OHEGAE**  2 

SIMMY 

76 

MYl  G T = 

2.  • PI  » GRAV  f OMGWSQ 

SIMMY 

77 

K * OMGWSQ  / GRAV 

SIMMY 

74 

CELT  * GRAV  / ONE  G A W 

SIMMY 

79 

DECT*  • 

GRAV  • ®I  / ICELT  * SPEEO) 

SIMMY 

80 

PIBY2  » 

PI/2. 

SIMMY 

61 

00  20  1 = 

1,9 

SIMMY 

62 

X K « I > > 

K • OX  I • FLOAT!  I ) • 2. 

SIMMY 

63 

AS INK ( I ) 

* WVMGT  • SIM IXK  II)) 

SIMMY 

65 

ACOSKII) 

= WVHGT  • COSIXMI)) 

SIMMY 

65 

20  XKII)  = 

-IXKIII  - PI8Y2) 

SIMMY 

86 

250  WRITE  <6 

, 10  00)  OMEGA  P,  WVMGT,  C EL  T , OMEGAE,  WVL  GT 

SIMMY 

87 

1000  FORMAT  < 

LH1 ,1  7HWAVE  FREQUENCY  = , F 7, 3 / 

SIMMY 

66 

1 

15M  WAVE  HEIGHT  = , F 7 .3/ 

SIMMY 

89 

2 

12M  CELERITY  = ,F7.3/ 

SIMMY 

90 

3 

2 6H  FREQUENCY  OF  ENCOUNTER  = ,F7.3/ 

SIMMY 

91 

A 

15M  WAVE  LENGTH  = ,F7.3I 

S IMMY 

92 

RE  TURN 

SIMMY 

93 

C 

SIMMY 

96 

two 

SIMMY 

95 

83 
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Table  12  (Continued) 


SUBROUTINE  SEE  GE  N ( HE  , YHOOT  , TROD  , CEL  , It 
Ct  OE  BUG 

Cl  CULLS 

Cl  STJRESIFREQ.NYHGMI 

••SE»  GENERATOR 

01  NENS10N  HE  < 1 I , YROOT  ( 1)  , VMOO  U I , CS1  ( iat 
COMMON/FBLOK/FIEwOM6)  ,IF<6) 

COMMON  /lNPT2/J,ISFI£LO,8UFFeR<fcO>  , IC  FIELD 
OATA  CS1/.DO0,  ,1/1.,.  34  2,  .5, .6*.  3,  . 766,  .86  6,.  94,  .985,1./ 
CEL*CELT 
03  5 1*1,20 
5 HE  1 1 ) = 0 • 

T£NP*MVH&H»SlN(nHEGA»T) 

DO  10  1=1,5 

10  HE  (I  *5I=MF  1 16-11  =CS1  <2»I  • »TEHP 
RETURN 

••SET  OEEAULTS 

ENTRY  INSEGIN 
FREQ=NYHGH=0. 

RETURN 

••  ACCEPT  DATA 

ENTRY  INSEGOT 

CALL  EIELOST50003,  6, BUFFER) 

FREQ=FIELO»(l> 

N»NGM=EIELOA(2> 

RE  TURN 

••OATA  ECHO 

ENTRY  INSGflN 

ONEGA =2.  *3.  141  592 G5358  9B*  FREQ 

CElT  = 32. 23/ OMEGA 

ONEGA2=OMEGA**2 

NRI TE  (6,90)  FREO.NV  HGH 

90  FORMA  T(1N-,  *SEA  OATA  (CASE  1 I •// T 5 , ♦ F WEU  = •,  E 2 0 . 1 J , 3 < , »m  2 • 
l /T5,«MAvE  HEIGHT  * *,E20  . 10  , 3*.  *F  T*  ) 

RE  T JRN 
ENO 


s tatk* 

2 

STATMV 

3 

STATM* 

4 

STATM* 

5 

S TA  rw* 

6 

STATM* 

7 

statm* 

ft 

statm* 

9 

S TA  tmv 

10 

STA  TM* 

11 

STATUS 

12 

STATM* 

li 

STATM* 

14 

STATUS 

15 

STATM* 

16 

STATM* 

17 

STATM* 

1ft 

statm* 

19 

STATM* 

23 

S TATWV 

21 

STATM* 

22 

STATM* 

23 

STATMV 

24 

STATMV 

25 

STATMV 

26 

STATM* 

27 

STATMV 

28 

S T A T *4  V 

29 

STA  TMV 

33 

STATMV 

31 

S TA  TM* 

32 

STATMV 

33 

STATMV 

34 

STA  TMV 

35 

STATM* 

3b 

STATMV 

37 

STATM* 

3ft 

STA  rw* 

39 

STAT  M* 

40 

STATU* 

41 

STATU* 

42 

S TA  TMV 

43 

ST  ATM* 

4«* 

S TATW* 

45 
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Table  12  (Continued) 


SUBROUTINE  OAUX  it,  S,0  S) 

OA  U X 

2 

REAL  X AS,  HASS 

OAUX 

J 

01 NENSION  KAG(21t,RINT (211 ,EI <201 , SMP  NS ( 20 » , OA NPC <20 1 

OAUX 

A 

1 , SCF  191  , BUOY  SAG  I 91  , ADD  HSI9t,VRT  NS<20) 

OAUX 

9 

2 ,TSI  91),SF<21>  ,0001(21)  , BON  (20  > , T OOT  ( 20)  ,TM  ( 9) 

OAUX 

6 

3 ,OTS(  91  > ,DSF  I21>  .OGOOT  121)  , D8ON(20»  , DY DOT < 20»  , 0YH(  9) 

OAUX 

7 

A , NF  ( 2 0 ) , S ( 911,  OS  (91  > 

OAUX 

A 

CONNON  /HBLOK/  < AG.RINT,  E I .SMPNS,  DAHPC.O  XI,  NE  VAL  , SPEEO, 

OAUX 

9 

1 8UOT  SPG,SCF,AOONS,VRTNS,IBEG,IENO 

OAUX 

10 

CONNON  / TEST  / INO 

OAUX 

11 

EQUIVALENCE 

OAUX 

12 

1 (TS.THI  , ITS! 10), TOOT),  <VS<  301,  GOOD  , (T  S (9 11  ,BON)  , ( TS(F1 1 , 

SF) 

OAUX 

13 

2 , <OTS,OTM)  , (OVS(IO)  ,OYOOT»,  (OYS(  J0>  , DGOOTI  , (DYS(51»  ,OBONI 

OAUX 

1A 

3 ,<DVS<71),OSF> 

OAUX 

19 

00  20  X * 1,91 

OAUX 

16 

20  TSCR)  « SIX) 

OAUX 

17 

NE  VAL  * NEVA!  » 1 

OAUX 

1A 

CALL  MTO  FRC  ( T.TN.VOOT.HF) 

OAUX 

19 

00  100  I « 1,20 

OAUX 

20 

OBDHII)  > E I ( I ) * 1 GOOT  (1*1)  - GOOT<I>>/OXI 

OAUX 

21 

OT  OOT  (II  » (HF(U-0ANPC(H*T00r<II-(SF(I*H-SF(I»)/0XI)/VRT 

NS  (I) 

OAUX 

22 

IF  (I  .EQ.  1)  GO  TO  100 

OAUX 

23 

OSFdl  > (GOOT  (I)  - (TOOT  (I)  - TOOT  ( I -1)  ) 70X1 ) *KAG(I  t 

OAUX 

2A 

OGOOT  (It  • (IBOHd)  - BOHII-lll/OXI  - SF  ( It  >/RINT  (I) 

OAUX 

29 

100  CONTINUE 

OAUX 

26 

OSFIll  « 0. 

OAUX 

27 

0SFI21I  > 0. 

OAUX 

20 

OGOOT  1 It  * OGOOT (2) 

OAUX 

29 

OGOOT  121)  ■ OGOOT  (20) 

OAUX 

30 

CO  110  I • 1,9 

OAUX 

31 

K x 2*1*2 

OAUX 

32 

110  OYHdl  > .9* (TOOT <X-lt  f TOOT  (Ft) 

OAUX 

33 

00  120  X x 1,91 

OAUX 

3A 

120  DSIX)  > OYS(X> 

OAUX 

39 

IF  (INO  .EQ.  01  GO  TO  6 

OAUX 

36 

MRITE  (B, At  NET Al 

OAUX 

37 

FORNAT  (1X//1K,39(1H*)/1X,*NETAL  x ♦,  1 10//1X  , *YH  , TOOT,  BON, 

GOOT, 

OAUX 

3A 

I SF*) 

OAUX 

39 

NRITE  16,9)  TH,  TOOT,  BON,  GOOT,  SF 

OAUX 

AO 

MRITE  (A, 0) 

OAUX 

Al 

FORNAT (1  X,*DTN,  OTOOT,  OBON,  OGOOT,  OSF»> 

OAUX 

12 

MRITE  (A,  9)  OTN,  OTOOT.OBOH, OGOOT, OSF 

OAUX 

A3 

9 FORM TC/9E13. A/F2T  lOEt  3.  A/10E13.  A//) , 2(1 0E1  3.  A/10E13.6/E1 3. 

A//)) 

OAUX 

AA 

A CONTINUE 

OAUX 

A9 

RE  TURN 

OAUX 

66 

ENO 

OAUX 

A7 
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Table  12  (Continued) 


SUBROUTINE  AUTNER  ( NO,  T ,H  , YO,E  PSE , A ,HC  X,F  IRS  T> 

ATHR 

2 

OINENSION  YO(llO) ,Y1( lit) ,V2( 110) ,F0( 110) ,F 1(110) ,F2( 110) 

ATHR 

3 

OI NENSION  EPSE (lit) ,*(110) ,NEQN(2b> 

ATHR 

b 

ATHR 

5 

PASS  TO  SSNOOTH  CONOITION  OF  TINE  INTERVAL  - MHOLE  TO  HALVES 

ATHR 

b 

CONNON  /IHVSS/  IHVS 

ATHR 

7 

ATHR 

B 

OATA  MCX2  / 1*  E 200  / 

ATHR 

9 

ATHR 

10 

NO  * NUMBER  OF  EQUATIONS,  NO.  OF  COMPONENTS  OF  YO 

ATHR 

11 

T*  INOEPENOENT  VARIABLE 

ATHR 

12 

H*INCRENENT  FOR  MMICH  SOLN  IS  TO  BE  RETURNEO  ♦ OR- 

ATHR 

13 

YS  tS  THE  VECTOR  OF  OEPENOENT  VARIABLES.  ENTER  KITH  INITIAL 

ATHR 

lb 

VALUES  AT  T ANO  RETURNS  MITH  VALUES  AT  T >H 

ATHR 

15 

EPSE*RElATIV£  ERROR  CRITERION  FOR  COMPONENTS  OF  YO  .GT.  ABSCA) 

ATHR 

lb 

A, ABSOLUTE  ERROR  CRITERIA  FOR  COMPONENTS  OF  YO  .LT.  A8S1A) 

ATHR 

17 

NOTE—  EPSE  ANO  A HOST  BE  SPECIFIEO  FOR  EACH  COHPONENT  OF  THE  SYSTEH 

ATHR 

IB 

MCA  « THE  SMALLEST  STEP  SIZE  USED  IN  THE  INTEGRATION 

ATHR 

19 

DAUK (T,Y,F)  RETURNS  THE  VECTOR  F(T,Y) 

ATHR 

20 

HCK  HAY  SPECIFY  A BEGINNING  STEP  SIZE  * M / 2**A 

ATHR 

21 

ON  RETIAN  MCA  CONTAINS  THE  SMALLEST  STEP  SIZE  USEO 

ATHR 

22 

SET  FIRST  * 0.  FOR  THE  FIRST  STEP  OR  FOR  A NEN  VALUE  OF  H 

ATHR 

23 

0.5  FOR  FIRST  STEP  OR  NEN  H,  ANO  HCX  SPECIFIED 

ATHR 

2b 

1.0  TO  CONTINUE  INTEGRATION  USING  THE  SANE  H 

ATHR 

25 

1.5  TO  CONTINUE  NITN  THE  SAME  H MHILE  SPECIFYING  HCX 

ATHR 

2b 

FIRST  • 2.  ON  RETURN,  IF  THE  ERROR  CRITERION  COULO  NOT 

ATHR 

27 

BE  NET  BY  REDUCING  THE  STEP  SIZE  BY  1/12S 

ATHR 

2B 

ATHR 

29 

IF  (ABS(FIRST)  .LT.l.)  I08L=0 

ATHR 

30 

IFIRST  * IF1XI2.*ABS(F1)ST)>*1 

ATHR 

31 

GO  TO  (15,10,20,5),  IFIRST 

ATHR 

32 

5 

IF  (HC  .EQ.  0.)  GO  TO  10 

ATHR 

33 

MCA  » AN INI  <HC,m:x) 

ATHR 

3b 

10 

HC  * AMIN1  (H,HCA> 

ATHR 

35 

IHVS  < 1 

ATHR 

3b 

NNSTPS  * IFIX(H/HC  ♦ .00001) 

ATHR 

37 

IPLOC  > HNSTPS 

ATHR 

3S 

FIRST  * SIGN (1.5, FIRST) 

ATHR 

39 

GO  TO  25 

ATHR 

bO 

15 

HC  * H 

ATHR 

bl 

IMVS  * 1 

ATHR 

b2 

IPLOC*l 

ATHR 

b3 

FIRST  s SIGN11., FIRST) 

ATHR 

bb 

20 

NNSTPS  » 1 

ATHR 

b5 

25 

LOC*0 

ATHR 

bb 

INE9N  * 0 

ATHR 

b7 

IF  (HC  .EQ.  0.)  GO  TO  240 

ATHR 

bO 

NCA*HC 

ATHR 

b9 

2b 

IF  (2.*MC  .EQ.  HCA2)  GO  TO  30 

ATHR 

50 

22 

HC2  « MC/2. 

ATHR 

51 

HC  3 * HC/  3. 

ATHR 

52 

HCb  * HC/b. 

ATHR 

53 

HCI  * HC/B. 

ATHR 

5b 

HC32  * 3.*HC2 

ATHR 

55 

HC23  * 2 • *HC3 

ATHR 

5b 

HC 30  * 3. •HCB 

ATHR 

57 

HCA2  ■ 2. *NC 

ATHR 

SB 

30 

CALL  OAUA(T,YO,Fll 

ATHR 

59 

00  bB  Ia  1 • NO 

ATHR 

bO 

AO 

Till)  »YO(I)  » HC3*F0(I> 

ATHR 

bl 

CALL  OAUA(T»HC3  , Yl.Fl) 

ATHR 

b2 

00  5B  I«1,ND 

ATHR 

63 

50 

Tl(I)  >TO(I)  ♦ HCb*  ( Ft  ( I > * Ft  ( I ) ) 

ATHR 

bb 

CALL  OAUA (T*HC3  , VI, FI) 

ATHR 

bS 

00  »B  1*1, NO 

ATHR 

bb 

BO 

Y1(I)  * YO ( I ) * HC8*F0 ( I ) ♦ RC3B*F1(I> 

ATHR 

b7 

CALL  OAUA (T *HC2  , Y1.F2) 

ATHR 

bO 

00  70  1*1, NO 

ATHR 

69 

70 

VI  (I ) *VO(  I )♦  HC2*F0(D-  HC32*F1(D*  HCX2*F2(I) 

ATHR 

70 

CALL  OAUA  ( T*HC,Y1,F1) 

ATHR 

71 

00  BB  1*1, NO 

ATHR 

72 
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Table  12  (Continued) 


•a 

V2(I)<VO<I>  » HC6<<F0<I1  < FI  (XI  ) ♦ MC23<F2d> 

KTHR 

73 

INC»B 

KTHR 

71, 

00  110  Is It  NO 

KTNR 

75 

Z22<ABS<T2<I 1 > -A  <1 1 

KTNR 

76 

IF  <2ZZ  . GE.  0.1 

GO  TO  07 

KTNR 

77 

ERROR'ABS  <.2*<T1<I1  -Y2<II)I 

KTHR 

70 

IF < ENRON  - A<II<EFSE<II1 

100,100.90 

KTHR 

79 

$7 

ERROR<ABS < . 2- . 2<  » 1 < 1 1 /Y2  < 1 1 

1 

KTHR 

60 

IF  (ERROR  .LE.  FPSE<I)1 

GO  TO  100 

KTHR 

01 

90 

INEQM  < I NEON  ♦ 1 

KTHR 

02 

IF  ( I ME  OH  .LE.  291  NEQNdNEQN)  < I 

KTHR 

03 

IF  IIFLOC  .LT.  120<NNSTFSI 

GO  TO  95 

KTHR 

69 

HRITE  (9f92>IfT, ERROR 

KTHR 

65 

92 

FORMAT  < 10M  FOR  EQUATION  NO. 

I2,27h,  THE  RELATIVE  ERROR  AT  T > 

, 

KTHR 

06 

! 

1 E12 . 3>  IMIS  « F12.6  1 

KTHR 

07 

FIRST  < 2. 

KTHR 

00 

GO  TO  327 

KTHR 

69 

95 

MC<NC/2. 

KTHR 

90 

IFLOC<2  • IFLOC 

KTHR 

91 

L0C*2  <LOC 

KTHR 

92 

IHTS  < IHVS  ♦ 1 

KTHR 

93 

IF  < IDOL  .EQ.  11  VRITt 

<6,991  I ,T,  ERROR 

KTHR 

99 

99 

FORMAT  <7 ON  KUTNER  OOUBlEO  IN 

TERVAL  ANO  IHNEOIATEL* 

' HALVEO  IT 

DUE 

KTHR 

95 

1T0  EQUATION  NO.  ,19, 7H  ATT* 

1PE15.6  / 22H  THE  RELATIVE  ERROR 

IS 

KTHR 

96 

2 1FE15.6I 

KTHR 

97 

HCI»MC 

KTHR 

96 

GO  TO  27 

KTHR 

99 

c 

IF  ERROR  IS  LESS  THAN  1/100  EPSILON,  TRY  TO  OOUBLE 

INTERVAL 

KTHR 

100 

100 

IF  <CRROR<100 • .LE.  EPSEdll 

GO  TO  110 

KTHR 

101 

INC<1 

KTNR 

102 

110 

CONTINUE 

KTHR 

101 

IOBL  < a 

KTHR 

109 

T*T<MC 

KTHR 

105 

00  112  t<lf NO 

KTNR 

106 

112 

Y0< I 1 « Y2 (I 1 

KTHR 

107 

L0C<L0C<1 

KTHR 

106 

c 

IF  ANY  OF  THESE  TESTS  IS  PASSED,  THE  INTERVAL  MILL 

NOT  BE  DOUBLED 

KTHR 

109 

IF  <LOC  .GE.  IPIOCI 

GO  TO  210 

KTHR 

110 

IF < INC  .NE.  01 

GO  TO  210 

KTHR 

111 

IF  <NOO<LOC, 21  .NE.  01 

GO  TO  210 

KTHR 

112 

IF<IPLOC  .LE.  HNSTPSI 

GO  TO  210 

KTHR 

111 

HC«2.<MC 

KTHR 

119 

L0C<L0C/2 

KTHR 

115 

IPLOC-IPLOC/2 

KTNR 

119 

IHVS  ■ IHVS  - 1 

KTNR 

117 

IOBL  ■ 1 

KTHR 

110 

2ia 

IF  (IPL0C-L0C1 

26,327,26 

KTHR 

119 

299 

IF < M.NE.0.1 

GO  TO  15 

KTHR 

120 

HRITE  < 9,2911 

KTNR 

121 

291 

FORMAT <51 ,97N  KUTNER  ENTERED 

NITH  ZERO  INTEGRATION 

INTERVAL  1 

KTNR 

122 

J2  7 

IF  (INEQN.EQ.a.OR.FlRST.GE.O. 

1 RETURN 

KTHR 

121 

IF  < INC  ON  .LE.  291 

GO  TO  129 

KTHR 

129 

HRITE  <9,9201  INC QN 

KTNR 

125 

129 

FORMAT  <90R,  15HINTERVAL  HALVE0.I1.9H  TIHES1 

KTNR 

129 

INEQM  < 29 

KTHR 

127 

129 

HRITE  <9,1901  (NERNdlfl  < 1,INEQNI 

KTHR 

120 

119 

FORMAT  < 99X,92HINTE6RATX0N  INTERVAL  HAS  HALVED 

KTNR 

129 

l /90X.12H0UC  TO  ERROR 

IN  VARIABLE  NUHBER  / 

< 09X, 6X91 1 

KTHR 

130 

RETURN 

KTNR 

131 

CRB 

KTHR 

132 
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Table  12  (Continued) 

SUBROUTINE  PLOTIN 

PLTN 

Z 

Ct  OEBUC 

PLTN 

3 

C*  ST  ORES  (I  , TR,  TL  ,L  OC I 

PLTN 

ft 

CS  CALLS(TRVPIN1,TRVPIN2,PL0T,PL0TFINI 

PLTN 

9 

OtMEMSIOM  BOH ( ZB)  , NAPPLT  < 20) 

PLTN 

6 

COMMON  VS (91) 

PLTN 

T 

CONHON/PBLOKl/NR,  TTT(20)  .R 1 ZB  ) .MSBSTN  .NAME  . COOE  . PHONE 

C06 

Z 

CONNON/PBLOK9/NREPLT.TIU(Z.9> 

COT 

Z 

Of  NENSION  TR  (9.3) 

PLTN 

10 

CONHON/CBLOK/ NCALC.NHSTNS.NCROUP.nl  1 9 ),NL  INVI9  >,HNLBNLZ(  90)  . 

PLTN 

11 

t ITTPEtlB).  TCRITAI1S),  VCRITA(IB) , IBSTORE ( 350 > . INSTORE < TOO)  . 

PLTN 

1Z 

3 KR0R0SI2 ) ,NP (2) . I FIRST. NAPPL  T 

PLTN 

13 

COMMON  7PRNT1/T.PI  TCH.  TL  EFT 

PLTN 

IN 

EOUI VALENCE (VS (9 II  .BON) 

PLTN 

19 

COMMON  /PBLOK3/  PSTORE (1029,6) ,LOC .INC.TL .TR.TRR 

PLTN 

IF 

COMMON  /PLTSLH/  RANSLN  .SSHPTS 

PLTN 

1ft 

DATA  NAXLOC  /10Z97 

PLTN 

19 

C**  INITIALIZATION 

PLTN 

Z1 

DATA  JUMP/B/ 

PLTN 

zz 

IF  (NR  ,LE.  t)  RETURN 

PLTN 

23 

IF  (JUMP  .ME.  D)  CO  TO  1 

PLTN 

29 

CALL  CAMRAV (935) 

PLTN 

29 

CALL  I0FRNV(NANE,C00E. PHONE) 

PLTN 

26 

J«NP»t 

PLTN 

27 

I CONTINUE 

PLTN 

20 

1-0 

PLTN 

29 

CALL  TRTPIN1 

PLTN 

30 

C*»OCTERMIME  LEFT-HAND  ENOPOINT  OF  TINE  AXIS 

PLTN 

31 

LOC-O 

PLTN 

32 

9 I»I*t 

PLTN 

33 

IF  (I.LE.  NR>  CO  TO  IB 

PLTN 

39 

TL>1.E20 

PLTN 

39 

RETURN 

PLTN 

36 

IB  IF  (RCII  .CC.  0.)  GO  TO  5 

PLTN 

37 

TR.R(I) 

PLTN 

30 

CALL  TRTPINZ 

PLTN 

39 

TL»TTT(II 

PLTN 

90 

C*»RIGMT-MANO  ENOPOINT  OF  TINE  AXIS 

PLTN 

91 

19  TENPbTLbRU) 

PLTN 

92 

TRsAMINL  (TTT  (I  *11  , TEMP) 

PLTN 

93 

TRRb (TENP-TR) /R(I  > 

PLTN 

99 

IF (JUMP  .EQ.  I)  RETURN 

PLTN 

• 

PLTN 

C**  STORE  FRAME-S  NORTH  OF  OATA  THEM  PLOT 

PLTN 

97 

• 

PLTN 

90 

EMTRT  PLOT 

PLTN 

99 

IF  (NR  .LE.  Bl  RETURN 

PLTN 

90 

IF  ( T ,LT.  TLI  RETURN 

PLTN 

91 

IF  (T  .ST.  TR)  CO  TO  10BB 

PLTN 

92 

C,# STORE  ABSCISSA  AND  ORDINATES 

PLTN 

93 

LOC-LOC*! 

PLTN 

59 

IF  ILK  .LE.  NAXLOC)  GO  TO  900 

PLTN 

99 

IRC-1 

PLTN 

56 

LOC*  NAXLOC 

PLTN 

57 

CO  TO  1020 

PLTN 

50 

»00  PSTORE  (LOC,  6)  * T 

PLTN 

59 

PSTORE  (LOC.  L)  “PITCH 

PLTN 

60 

PSTORE  (LOC,  Z)bBDH(HSOSTN) 

PLTN 

61 

CALL  SEACEN (TR (1,1),TR(1,Z).TR(1,3),CEL,T) 

PLTN 

62 

PSTORE (LOC, 3)  * VR(9,1) 

PLTN 

63 

C 

PLTN 

69 

C PLOT  THE  RAM  SLIH  FORCE  ON  TOP  OF  PITCH  GRAPH 

PLTN 

65 

PSTORE  (LOC  ,9)  ■ RANSLN 

PLTN 

66 

C 

PLTN 

67 

C PLOT  THE  SMOOTHED  SLAH  ON  TOP  OF  PITCH  GRAPH 

PLTN 

60 

PSTORE(LOC,9)  b SSNPTS 

PLTN 

69 

RETURN 

PLTN 

70 
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Table  12  (Continued) 


C**PRCP0RC  PLOTS 

1000  inc«o 

IP  ILOC  • CO*  0)  CO  TO  20(0 
1120  COLL  TRYPLOT 
20(0  IF  IJUNP  .ME.  3)  GO  TO  2(10 
COLL  PLTNOIO 

IFINRCPLT  .EQ.  21  ENOFILE  0 

ME  TURN 

2(10  CONTINUE 

C**RC-INITIOLIIC  FOR  NE«T  FRONE 
LOC«( 

JUMP* 2 
TL*TL*R(  I ) 

IP  ITL”.99999*TTT  (1*11 1 15,5,5 

• 

C*PL OT  LOST  PRONE 
• 

ENTRY  PLOTFIN 

IP  (NR  .IE.  01  RETURN 

JUNP«J 

IFINRCPLT  .CQ.  3t  60  TO  1020 

CO  TO  1000 

END 


PLTN 

PLTN 

PLTN 

PLTN 

PLTN 

PLTN 

PLTN 

PLTN 

PLTN 

PLTN 

PLTN 

PLTN 

PLTN 

PLTN 

PLTN 

PLTN 

PLTN 

PLTN 

PLTN 

PLTN 

PLTN 

PLTN 

PLTN 


>2 


12 

13 


Table  12  (Continued) 


SUBROUTINE  TRYPIN1 

TRPN 

2 

CS  OEMS 

TRPN 

3 

Ct  STORES  (INI,  1*2  , DEL  .DEL  A,  YYLU,  XXL  , XXR,  NTR) 

TRPN 

6 

CONMON  /PBL0K3/  PSTORE (1 026.6 > .LOC , INC, TL .TR, TRR 

TRPN 

5 

COHNON/PBLOKY/NAEPL  T,YLU(2,6) 

C07 

2 

OINENSION  ITC  ( 2.31  , OEL A(  6)  ,11  (31 , YYL U (2,  3) . 

NCH  ( 3)  .LABEL  ( 5,6) 

TRPN 

7 

OtHENSION  XINC (61  • FCTNORN  (6),  IEXP(6> 

TRPN 

0 

DATA  XINC/.3..S..TS  .1..1.S.2./ 

TRPN 

9 

DATA  LABEL (1.1)  / 1ANPITCH  (OEG  / 

TRPN 

10 

DATA  LABEL (1.2)  / 31MNIDSHIP  BENDING  MOMENT 

(FT-TONS  / 

TRPN 

11 

DATA  LABELd.  3)  t Z6HMAVE  HEIGHT  AT  MIDSHIP 

(FT  / 

TRPN 

12 

OATA  NCH/ 11 .31 .26/ 

TRPN 

13 

OATA  I VC/60 .365,375, 660 . 690. 975/ 

TRPN 

16 

• 

TRPN 

15 

C*INITIALI2ATI0N— SET  PARAMETERS  FOR  PLOTTING  ROUTINES 

TRPN 

16 

* 

TRPN 

17 

C— VERTICAL  AXES 

TRPN 

10 

IPl-1 

TRPN 

19 

IPt-3 

TRPN 

20 

JBNPal 

TRPN 

21 

FCTN0RMI6)  ■ 31. 

TRPN 

22 

FCTNORN! 5 > a 1$. 

TRPN 

23 

GO  TO  IS 

TRPN 

26 

C— HORIZONTAL  (TINE)  AXIS 

TRPN 

25 

ENTRT  TRTPIN2 

TRPN 

26 

IPfIP2*6 

TRPN 

27 

YLU(2,6|aTR 

TRPN 

20 

VLU(1.6>  ■ TL 

TRPN 

29 

JBNR-2 

TRPN 

30 

C**  CALCULATE  GRIO  LINE  SPACINGS 

TRPN 

31 

IS  00  11B  IPalPI . IP2 

TRPN 

32 

OELaVLU(2,IP>-VLlMl.IP) 

TRPN 

33 

IF  (OEL  .GT.  0.)  GO  TO  3B 

TRPN 

36 

OELA(IP)  a DEL 

TRPN 

35 

60  TO  111 

TRPN 

36 

31  IEXPtlP)  a IFIXIALOGIO(OELI) 

TRPN 

37 

FNIP  ■ IB.  ••  I EXP (IP) 

TRPN 

30 

OCLNORN  a DEL  / FNIP 

TRPN 

39 

IF  (OELNORN  .LT.  11)  GO  TO  60 

TRPN 

60 

IF*6 

TRPN 

61 

60  TO  SO 

TRPN 

62 

60  CONTINUE 

TRPN 

63 

OB  2S  IF- 1,6 

TRPN 

66 

IENPa  OEL  NORN/ XINC  (IF) 

TRPN 

65 

IF  (IEHP  .EQ.  3 .OR.  IENP  .Ed.  6)  GO  TO  90 

TRPN 

66 

75  CONTINUE 

TRPN 

67 

STOP  11 

TRPN 

60 

SO  IF  (IP  .HE.  6)  GO  TO  SS 

TRPN 

69 

IB«2»M00(ir,2) 

TRPN 

50 

IC—IB 

TRPN 

51 

AIB  a 2.  • FNIP  / FLOAT)  IB) 

TRPN 

52 

GB  TO  100 

TRPN 

53 

SS  AIB  - FNIP 

TRPN 

56 

iaa  oel a ( ip)  . xinc(If>*aib 

TRPN 

55 

IF  (IP  .CO.  6)  FCTNORN)  6)  « FNIP 

TRPN 

56 

IF  IIP  .NE.  6)  FCTNORN! IP)  a FOIP 

TRPN 

57 

fta  CONTINUE 

TRPN 

50 

C JUMP  a * IF  COMPUTING  TINE  AXIS  OIVISIONS 

TRPN 

59 

IF  (JUMP  .EQ.  2)  GO  TO  ISO 

TRPN 

60 

C**OCTERNINC  NMICM  GRIO  HILL  HAVE  TINE  AXIS  LABELING 

TRPN 

61 

Kaf 

TRPN 

62 

OB  ItS  !■ 1. 3 

TRPN 

63 

ICXP(I)  ■ IFIX  (IL OGIO  ( AN AX1ITLUI2 , 1)  . VLU ( 1,  It ) ) ) 

TRPN 

66 

FCTNORN)  I)  a 10.*MEXP(I) 

TRPN 

6S 

IFIICXPIII.LT. 0 .OR.  IEXP(I)  . GT.2)  GO  TO 

120 

TRPN 

66 

FCTNORN) I)  a 1. 

TRPN 

67 

IEXPII)  a B 

TRPN 

60 

120  OCLAIII  a OEL  A (I)  /FCTNORN  (It 

TRPN 

69 

Hill  ■ 1 

TRPN 

70 

IF  (OCLA(I)  .GT.  1.)  KaNINO(K.I) 

TRPN 

71 

TRPN 

72 

Ca*NUlTIPLT  ENDPOINTS  OF  VERTICAL  AXES  BT  FUOGE  FACTORS 

TRPN 

73 

OB  ItS  Ja 1,2 

TRPN 

76 

TRPN 

75 

90 


Table  12  (Continued) 


129  YVLUU.II  * (l.*JJ*SIGN(  .0001, YLU(J,I  III  *VLU(J,XI/FCTNORN<II 

TRPN 

76 

BE TURN 

TRPN 

77 

C**SET  RE-TRACING  FREQUENCY  FDR  VERTICAL  GRIO  LINES 

TRPN 

70 

191  IF  (K  .NE.  91  II(KI*IC 

TRPN 

79 

RETURN 

TRPN 

00 

• 

TRPN 

01 

C*  PLOT  ORTA,  3 PLOTS  PER  FRANE 

TRPN 

02 

• 

TRPN 

03 

ENTRY  TRY  PLOT 

TRPN 

00 

IF  <K  .EQ.  91  RETURN 

TRPN 

09 

GO  TO  (201, 202, 2031, NREPLT 

TRPN 

06 

202  NRITE(O)  LOC.TL.TR.TRR 

TRPN 

07 

NRITE  (01  DELA(O)  ,FCTN0RH(6)  ,IEXP(OI 

TRPN 

00 

NRITE  (91  ( (PSTDRE1I, Jt , J*1,6I  ,1*1, LOO 

TRPN 

09 

NRITE (0,2101 

TRPN 

90 

210  FORNAT (1X»*PL0T  OATA  SAVED  ON  TAPES*! 

TRPN 

91 

GO  TO  201 

TRPN 

92 

203  READ  (01  LOC, TL, TR«TRR 

TRPN 

93 

REAO  (01  DEL A (A) , FCTNORN(OI , IEIP (A) 

TRPN 

90 

RE  AO(0>  ( (PSTORE ( I , J) , J*  1,61 , 1*1, LOCI 

TRPN 

9S 

TRR  - 1./ 12. 

TRPN 

96 

OELA(OI*10. 

TRPN 

97 

NRITE  (0,10001  LOC.TL.TR,  TRR 

TRPN 

90 

1000  FORNAT (I 10, AC 19. 9! 

TRPN 

99 

201  CONTINUE 

TRPN 

100 

C**NULTIPLV  ENOPOINTS  OF  HORIZONTAL  (TINE)  AXIS  SY  FUOGE 

FACTOR 

TRPN 

101 

XKLa(l.-SIGN(.0001,TLII*TL 

TRPN 

102 

XXR*  (1,*SIGN(.000 1 , TRI  )•  TR 

TRPN 

103 

C**RICHT-HANO  NARGIN 

TRPN 

100 

NTR*TRR*1023 

TRPN 

10S 

C** ORAN  GRID, PL OT, ANO  ANNOTATE 

TRPN 

106 

L*0 

TRPN 

107 

XX  *0 

TRPN 

100 

00  000  1-1,9 

TRPN 

109 

IF  (I  .EQ.  0 .OR.  I .EQ.  91  GO  TO  299 

TRPN 

no 

IF  (OELMII  .LE.  0.!  GO  TO  OO! 

TRPN 

111 

KK«KK»1 

TRPN 

112 

IF  (KK  .GT.  1)  L * 2 

TRPN 

113 

CALL  SETHIV(20,NTR,I YC (1,11 , 1023- I VC (2,111 

TRPN 

no 

CALL  GRI01V(L ,XXL , XXR,  YVLUd,  II, Y VLU(  2,11  ,OELA (0)  ,1 

DELAdl  , 

TRPN 

119 

io,o, -i.-i,  o.oi 

TRPN 

116 

299  00  290  J* l.LOC 

TRPN 

117 

1X1  - IX V (PSTORE ( J,6I 1 

TRPN 

110 

IT1  * IV  V ( PST  ORE  (J,  1 1 / FCTNORMdlt 

TRPN 

119 

CALL  ROINT V( I XI, I Y 1,01 

TRPN 

120 

IF  (J.NE.ll  CALL  LINEV(IX1,IV1,IX2,IV2I 

TRPN 

121 

1X2  * 1X1 

TRPN 

122 

290  IY2  * IV1 

TRPN 

123 

IF  (I  .EQ.  0 .OR.  I .EQ.  91  GO  TO  000 

TRPN 

120 

1X1  * 12 

TRPN 

1 25 

IY1  * IYCI2.1I  *0 

TRPN 

126 

CALL  PRINTV(NCH(II, LABEL  (1,11  ,1X1, IY1) 

TRPN 

127 

111  * 12»0*NCH(II 

TRPN 

120 

IF  (IEXPdl.EQ.OI  GO  TO  270 

TRPN 

129 

CALL  PRINTVtO.OH  X 10  l,IXl,IYll 

TRPN 

130 

AEXP  - IEXP(II 

TRPN 

131 

CALL  BNBCO V( AEXP.OCO, I X2 1 

TRPN 

132 

1X1  a 0*(NCH(II  *7-1X21 

TRPN 

133 

SGN  a 1H 

TRPN 

130 

IFdCXPI 1 1 .GT.  SI  SGN  > 1H- 

TRPN 

1 35 

IT1  a IY1 *0 

TRPN 

136 

CALL  PRINTV (1,SGN,IX1,IY1I 

TRPN 

137 

IK1  - 1X1*0 

TRPN 

130 

CALL  PRINTV(-IX?,0C0,IX1, IY1I 

TRPN 

139 

GO  TO  200 

TRPN 

100 

270  CALL  PRINTV  (1,1NI,IX1,IY1I 

TRPN 

101 

200  CONTINUE 

TRPN 

102 

IF  (II(II  .HE.  SI  CALL  PRINT V (-11 , 11MTIHE  ( SECSI , (999-HTR 1 /2 ,1 VC(1 

TRPN 

103 

1,11-01 

TRPN 

100 

OOO  CONTINUE 

TRPN 

109 

IF  (INC  .EQ.  11  CALL  PRI NTV(-99, 99MINC0NPLE TE  PLOT 

DUE  TO  PLOT  FRE 

TRPN 

106 

1QUENCY  EXCEEOING  STORAGE  ,30 , IYC ( 1, 1 1 -20 1 

TRPN 

107 

RETURN 

TRPN 

100 

ENO 

TRPN 

109 

91 


Table  12  (Continued) 


SUBROUTINE  NVEND<A,B,C> 
Of NENSION  AI17I 
IB  FDRNAT 15 (SXt 020) I 

ENOFIIE  « 

CALL  PLOTFIN 
WRITE <6, 101  At C 
STOP  6 
ENO 


HVENO  2 

HTENO  3 

HVENO  A 

HVENO  5 

HVENO  6 

HVENO  7 

HVENO  A 

HVENO  9 


SUBROUTINE  BUIL0T 1 .1  A.  N,  NPI 

•I*  IS  A POSSIBLE  ADOITION  TO  ARRAV*  I A*  OF  SIZE  *N*. 

•IA*  IS  SEARCHED  FOR  •!«.  IF  FBUNOt  NO  ACTION  IS  TAKEN. 

IF  NOT  FOWOt  IS  AODEO  TO  *IA»  SO  THAT  *IA«  IS  IN  INCREASING 


BUILD 
BUILD 
BUILO 
BUILO 
ORDE  BUILD 


c 

•N*  IS  THEN  INCREASED  BU  1.  »NP»  IS  THE  SHALLEST  PONER  OF  2 GREATER 

BUILO 

7 

c 

THAN  OR  EQUAL  TO  N»l. 

BUILD 

A 

01  NENSION  IAI1I 

BUILO 

9 

IF  IN  .E«.  II  NP*l 

BUILO 

10 

CALL  ISEARCNII,IA,N,NP,lLtISTATE> 

BUILO 

11 

IF  (ISTATE  .EQ.  II  RETURN 

BUILO 

12 

IF  IIL  .GT.  HI  GO  TO  7 

BUILO 

13 

NN»N«1 

BUILD 

14 

00  9 J»  IL.N 

BUILO 

15 

NNaNN-1 

BUILO 

16 

5 

IA(NN»1>»IA(NN> 

BUILO 

17 

r 

lAIILIal 

BUILO 

1A 

IMM 

BUILO 

19 

NPalPMKINI 

BUILO 

20 

RETURN 

BUILO 

21 

EBB 

BUILO 

22 
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Table  12  (Continued) 


SUMOUTINE  FIELDS!  I FOR  Ml  T , N,  I BUFFER) 

FLOS 

2 

C0NM0N/FBL0K/FIEL0<6>  , I F (6) 

FLOS 

3 

DIMENSION  IALPHK15)  ,LEN(6) 

FLOS 

6 

DIMENSION  IBUFFER(l) 

FLOS 

5 

0*1*  LEN/6S,30,20, 15,12,  10/ 

FLOS 

6 

OkT*  IALPHA/1R0,1R1,1R2,  1R3,  1R6,  1R5 , 1 R6,  1RF  , 1R6 , 1R9 , 1R.  , 1R-,  1R», 

FLOS 

T 

1 IRE.1R  / 

FLOS 

S 

IC#OE*IFORNAT 

FLOS 

9 

NN«N»1 

FLOS 

18 

11*61 

FLOS 

11 

DO  IRQ  J*1,N 

FLOS 

12 

cs 

STORES  (IF,  FIELD,  JJ) 

FLOS 

13 

JJ*NN-J 

FLOS 

16 

ITTPE*ICOOE.ANO.SS 

FLOS 

15 

IC00E*SMIFT(IC00E,-2> 

FLOS 

16 

12*11-1 

FLOS 

IF 

11 "Il-LEN INI 

FLOS 

IS 

IF  (ITtPE  .EQ.  0)  GO  TO  100 

FLOS 

19 

I BASE  1*1  BASE  2*0 

FLOS 

20 

I BURNT  1*1  Q1I  ANT  2*0 

FLOS 

21 

FACTOR*l. 

FLOS 

22 

IDP*B 

FLOS 

23 

IE«B 

FLOS 

26 

SI6N1*1. 

FLOS 

25 

ISI6N2*1 

FLOS 

26 

DO  BS  1*11,12 

FLOS 

2 F 

DO  65  Ml, 15 

FLOS 

28 

IF  HBUFFERdl  .EQ.  IALPMAOO)  GO  10(60,60,60,60  ,60,60,60,60,60,60 

FLOS 

29 

1,62  , 66, 66. 60, 00)  K 

FLOS 

30 

u 

CONTINUE 

FLOS 

31 

GO  TO  BO 

FLOS 

32 

61 

IF  (IE  .EQ.  11  GO  TO  61 

FLOS 

33 

IBASE 1*18*1 BASE1 *K-1 

FLOS 

36 

IQUANT1*IQUANT1»1 

FLOS 

35 

IF  HOP  .EQ.  11  FACTOR*F ACTOR/10. 

FLOS 

36 

GO  TO  SO 

FLOS 

3F 

61 

IBASE2*1S*I8ASE2«K-1 

FLOS 

3S 

I QU AN T2* I QUANT 2*1 

FLOS 

39 

GO  TO  BO 

FLOS 

60 

62 

IDF*1 

FLOS 

61 

GO  TO  BO 

FLOS 

62 

66 

IF  (IE  .EQ.  1 .OR.  IQUANT1  .ME.  0)  GO  TO  65 

FLOS 

63 

SIGN1— SIGN1 

FLOS 

66 

GO  TO  BO 

FLOS 

65 

65 

IF  (IE  .ME.  11  IE*1 

FLOS 

66 

ISIGN2*-ISIGN2 

FLOS 

6F 

GO  TO  BB 

FLOS 

68 

66 

IF  (IQUANT1  .EQ.  01  GO  TO  SO 

FLOS 

69 

66 

IE*1 

FLOS 

50 

•• 

CONTINUE 

FLOS 

51 

IF  (ITTPE  .EQ.  21  GO  TO  90 

FLOS 

52 

ISIGN1*SICN1 

FLOS 

53 

IFACTOR*FACTOR 

FLOS 

56 

IF  ( JJ)*ISIGN1*IBASE1*IF ACTOR 

FLOS 

55 

GO  TO  IBB 

FLOS 

56 

60 

IF  (I QUANT 2 .EQ.  0)  GO  TO  96 

FLOS 

SF 

FACT0R2*1B.**(ISIGN2*IBASE2> 

FLOS 

58 

GO  TO  96 

FLOS 

59 

96 

FACTOR2* 1 . 

FLOS 

60 

96 

FI  EL  0(  JJ)  *SI6N1*FACT0R*F  LOAT  !IBASE1)*FACT0R2 

FLOS 

61 

C* 

OFF  (STORES) 

FLOS 

62 

1M 

CONTINUE 

FLOS 

63 

RETURN 

FLOS 

66 

END 

flos 

65 
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Table  12  (Continued) 


SUBROUTINE  HSTOFN  C IBUFFE  R , NT  r PH*,  NTTPES,  91*  S,  MI  0 TM,  XHAX) 

HST 

2 

OINENSION  BIAS  (NTT  PH  X)  « I BUFFER  (90  1 ,NIOTH(NTYPHX)  , I ALPHA!  1 21 

HST 

3 

OATA  I ALPHA  / IRC,  1R1 , 1R2 , 1R3, 1R4 , 1R5 , 1R6 , 1R7, 1R0 , 1R9 , 1R. , 1R- , 1RI , 

HST 

4 

1 1RI.1R  ,1R,,1»*/ 

HST 

5 

NTTPES*! 

HST 

6 

IENO-0 

HST 

7 

ISTART*! 

HST 

0 

IOPT*0 

HST 

9 

5 

IBASE>9 

HST 

10 

IQJANT*! 

HST 

11 

FACTOR*!. 

HST 

12 

IOP*0 

HST 

13 

SIGN*1. 

HST 

14 

IOPT«IOPT*l 

HST 

15 

IF  1 1 OPT  .EQ.  31  I OPT*  1 

HST 

16 

IF  CIST ART  .EQ.  0»  GO  TO  450 

HST 

17 

ISTART.O 

HST 

10 

00  A50  L»l,60 

HST 

19 

00  ABO  11*1,17 

HST 

20 

IF  IIBUFFERILI  .EQ.  I ALPHA  <H>  5 GO  TO  ( A1 0 , A10 , 41 0 , A10 ,A1 0 , A10 , 

HST 

21 

1 410,410,410,410,420,430,440,440, 440 , 450 .450  »M 

HST 

22 

409 

CONTINUE 

HST 

23 

GO  TO  909 

HST 

24 

410 

IQt»ANT*IQUANT*l 

HST 

25 

I BASE * 10* I BASE ♦H*l 

HST 

26 

IF  CIOP  .EQ.  1>  FACT0R*FACT0R/19. 

HST 

27 

GO  TO  459 

HST 

20 

420 

IOP*l 

HST 

29 

GO  TO  459 

HST 

30 

<•39 

SIGN*-SI6N 

HST 

31 

GO  TO  459 

HST 

32 

440 

IF  < I QUANT  .NE.  01  GO  TO  910 

HST 

33 

450 

CONTINUE 

HST 

34 

509 

CONTINUE 

HST 

35 

909 

IENO*l 

HST 

36 

IF  C I QUANT  .EQ.  01  GO  TO  1900 

HST 

37 

911 

IF  II OPT  .EQ.  21  GO  TO  1000 

HST 

30 

IF  (NTTPES  .EQ.  0)  GO  TO  920 

HST 

39 

0IASINTTPES)*XNAX 

HST 

40 

920 

XNAI*SIGN*FACTOR*FLOA  TCI  BASE) 

HST 

41 

IF  IIENO  .EQ.  1)  GO  TO  1900 

HST 

42 

GO  TO  5 

HST 

43 

1000 

IF  IIENO  .EQ.  1)  GO  TO  1900 

HST 

44 

NTTPES*NTYPES*1 

HST 

45 

IF  I NTTPES  .GT.  NTYPNX)  GO  TO  1090 

HST 

46 

NtOTH I NTTPES) *SIGN»FAC  TO  REFLOAT  II  BASE ) 

HST 

47 

GO  TO  5 

HST 

40 

1090 

NTYPES*NTYPES-1 

HST 

49 

1990 

RE  TURN 

HST 

SO 

END 

HST 

51 
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Table  12  (Continued) 


SUBROUTINE  INUPM 

I NPH 

2 

Ct  OEBUG 

INPH 

3 

Ct  ARRAYS 

I NPH 

4 

C**  INPUT  OATA  HANOLER 

INPH 

S 

• 

INPH 

6 

C**REAOS  INPUT  CAROS  ANO  PERFORMS  LIMITED  INITIALIZATION.  INPUT 

INPH 

7 

COFEATURES  ARE  THE  FOLLOWING-* 

INPH 

8 

C 1.  COLS  1-10  ARE  TH  MNEMONIC  FIELD,  COLS  Zl-SO  THE  CONTINUATION 

INPH 

9 

C FIELD,  ANO  COLS  11-711  THE  OATA  FIELOS  (SIX  10  COLUMN  FIELDS  OR  THREE 

INPH 

10 

C 20  COLUMN  FIELOS) 

INPH 

11 

C 2.  A CONTINUATION  CARO  HAS  A ♦ IN  COL  1 FOLLOWED  BT  THE  NON-INITIAL 

INPH 

12 

C CHARACTERS  OF  A CONTINUATION  FIELD. 

I NPH 

13 

C 3.  PARAMETERS  F OP  WHICH  NO  INPUT  CAROS  APPEAR  WILL  MAINTAIN  THE 

I NPH 

14 

C VALUES  THEY  HAO  FOR  THE  PREVIOUS  CASE.  FOR  THE  FIRST  CASE,  SUCH 

INPH 

15 

C PARAMETERS  WILL  BE  SET  TO  DEFAULT  VALUES. 

INPH 

16 

C A.  INPUT  CARDS  MAY  APPEAR  IN  ANY  ORDER. 

INPH 

17 

C 5.  A SINGLE  ENO  OF  FILE  REPRESENTS  ENO-OF-CASE.  A DOUBLE  ENO  OF  FI 

INPH 

10 

C ENO-OF  JOB. 

INPH 

19 

C 

INPH 

20 

INTEGER  CNTNATN 

INPH 

21 

COMMON  /INPT1/IE0F ,B< 11, 2) , TS TRT , NHAL VES , TF , W ( 1 0 , 2) , NW (2 > ,EPS(91I , 

INPH 

22 

1ABSERR  (91 ) , XL  NGTN  , TCPU,  CONTROL  ( 4 ) 

INPH 

23 

COMMON/INPT2/J,ISFIELO, BUFFER (60) , ICFIELO 

INPH 

24 

I NPH 

25 

DIMENSION  ICNTAPI3.1O0),  MNEREFI22) 

INPH 

26 

OATA  ISTCNT ,NMNES/ 100 » 22/ 

INPH 

27 

I NPH 

24 

DATA  MNEREF/4LSTAT,4LHALF,4LINIT,4LHY0R,4LNLA0,4LNLBU,4LNL1A, 

INPH 

29 

1 4LNL1B, 

INPH 

30 

14LNL2A,4LNL2B,4LIMTG,4LOEBU,4LSEA-,4LSPEE,4LCONT,4LPRIN,4LCOMM, 

INPH 

31 

2 4LI0EN,  4LSCTN,4LPL0T,4LAXES,4LDAMP/ 

INPH 

32 

OATA  IFIRST  /O/ 

INPH 

33 

IF  1 1 FIRS T .EQ.  1)  GO  TO  1 

INPH 

34 

IFIRST*1 

INPH 

35 

C** JOB  INITIALIZATION 

INPH 

36 

I£0F*0 

INPH 

37 

C**SET  OEFAULT  VALUES 

INPH 

30 

CALL  NUN 

INPH 

39 

CALL  STIN(O) 

INPH 

40 

CALL  HSTIN(O) 

INPH 

41 

CALL  MSCON(O) 

INPH 

42 

CALL  HYOIN(O) 

INPH 

43 

CALL  CNTRN 

INPH 

44 

CALL  INPLTIN 

INPH 

45 

CALL  INPRIN 

INPH 

46 

CALL  INSEGIN(NULL,NULL  ,N  ULL , NULL  , NULL  ) 

INPH 

47 

CALL  INTRIN(O) 

INPH 

48 

C**CASE  INITIALIZATION 

INPH 

49 

C PATCH  FOR  SLAM  ENTRIES 

I NPH 

50 

CALL  INSMIN(NULL) 

INPH 

51 

CALL  INSMOT(NULL) 

INPH 

52 

C 

INPH 

53 

1 ICAROS  *0 

INPH 

54 

CALL  INTIN 

INPH 

55 

CALL  INONPIN 

INPH 

56 

ITIM£S*0 

INPH 

5 7 

ICFIELO*! 

INPH 

50 

ISTORE*JSTORE*l 

INPH 

59 

NSCNTNM 

INPH 

60 

IS*! 

INPH 

61 

NTAPE*5 

INPH 

62 

Nl*T 

INPH 

63 

WRITE (6,2) 

INPH 

64 

2 FORMAT (INI, ‘INPUT  CAROS* ) 

INPH 

65 

C*  READ  A CARO 

INPH 

66 

5 RE  AD  (NTAPE,  10)  NFIELO,  BUFFER,  CNTNATN 

INPH 

6Z 

11  FORMAT (A10,6GR1,A10) 

INPH 

60 

IF  (EOF (NTAPE)  > 30,50 

INPH 

69 

C**CHECR  FOR  END-OF-JOJ 

INPH 

TO 

3!  IF  (ICAROS  .GT.  01  GO  TO  40 

INPH 

71 

IEOF*l 

INPH 

72 

RETURN 

INPH 

73 
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Table  12  (Continued) 


C*»CHECR  SCRATCH  DISK  FOR  CONTINUATION  CAROS 

INPH 

74 

At 

IF  (IS  .NE.  0)  GO  TO  A5 

I NPH 

75 

C**COMPlETE  INPUT  OPERATIONS  ANO  RETURN 

INPH 

76 

A? 

CALL  NLFIN 

INPH 

77 

CALL  STFI N ( NULL ) 

INPH 

70 

CALL  HSTFIN(NULL) 

INPH 

79 

CALL  INTRFIN(NULL) 

INPH 

00 

CALL  MSFIN(NULL) 

INPH 

01 

CALL  HYOFIN(NULL) 

INPH 

02 

CALL  CNTFIN 

INPH 

03 

CALL  INPLFIN 

INPH 

04 

CALL  INPRFIN 

INPH 

05 

CALL  I NSGF  IN  (NULL,  NULL  .NULL,  NULL,  NULL  I 

INPH 

06 

CALL  I NSMFI  N(  NULL  ) 

INPH 

07 

RETURN 

INPH 

00 

C**PROCESS  CONTINUATION  CAROS  ON  SCRATCH  DISK 

INPH 

09 

AS 

ITINES*ITINES»1 

INPH 

90 

IF  (ITINES  .LT.  51  GO  TO  47 

INPH 

91 

MRITE  (6,66) 

I NPH 

92 

A6 

FORMAT  (IX  , •CONTINUATION  FIELD  ERROR(S)*) 

INPH 

93 

GO  TO  62 

INPH 

94 

A7 

IF  (NTAPE  .NE.  5)  REMINO  NTAPE 

INPH 

95 

REMIND  N1 

INPH 

96 

NTAPExNl 

INPH 

97 

N1*15-NTAPE 

INPH 

90 

IS*0 

INPH 

99 

GO  TO  5 

INPH 

100 

C»*CHECK  COLUMN  l FOR  ♦ 

INPH 

101 

SO 

ICARDS*ICARDS*1 

INPH 

102 

ICOL  1 = MFI  ELO  .ANO.  770000000000000000008 

INPH 

103 

IF  IIC0L1  .NE.  1L>)  GO  TO  500 

INPH 

104 

C**CHEC*  IF  CARO  PRECEEDING  CONTINUATION  CARD  HAS  SEEN  RE AO 

INPH 

105 

IF  (NSCNTN  .EQ.  0)  GO  TO  600 

INPH 

106 

CS 

ST0RES(IS,IC0L2X> 

INPH 

107 

IC0L2X*SHIFT(MFIELD-IC0tl,6) 

INPH 

100 

DO  100  1*1, NSCNTN 

I NPH 

109 

CS 

GOTOS 

INPH 

110 

IF  (ICNTART1, 1)  .EQ.  IC0L2X)  GO  TO  450 

INPH 

111 

too 

CONTINUE 

INPH 

112 

C**WRITE  CONTINUATION  CARO  ON  SCRATCH  DISK 

INPH 

113 

AOO 

IS*IS*1 

INPH 

116 

Ct 

OFF (GOTOS) 

INPH 

115 

CS 

OFF  ( STORES) 

INPH 

116 

WRITE  (Nl,  10)  MFIELO,  BUFFER  , CNTNATN 

INPH 

117 

GO  TO  5 

INPH 

1 10 

C**RE 

TRIEVE  MNEMONIC  ANO  SUPPORT  FIELO  FROM  STORAGE  ARRAY 

I NPH 

119 

A50 

MNEMNC*ICNTAR(2,I) 

INPH 

120 

ISFIELO*ICNTAR(3,II 

INPH 

121 

C **SE 

T POINTERS  INDICATING  LOCATIONS  AVAILABLE  FOR  STORAGE  PURPOSES 

INPH 

122 

ICNTAR(2,  I)  *1ST0RE 

INPH 

123 

ICNTARU  ,I)=10M 

INPH 

124 

CS 

STORES(ISTORE) 

INPH 

125 

IF  (I  .EQ.  NSCNTN)  NSCNTN*NSCNTH-1 

INPH 

126 

IS  TORE*I 

INPH 

127 

CS 

OFF  (STORE S) 

INPH 

120 

GO  TO  510 

INPH 

129 

soo 

MNEMNC*MF IELO  .ANO.  777777770000000000008 

INPH 

130 

ISFIELD*0 

INPH 

131 

C**SEARCM  VOCABULARY  n?  MNEMONIC 

INPH 

132 

S10 

00  530  K*1,NMNES 

INPH 

133 

J*< 

INPH 

134 

IF  (MNENNC  .EQ.  NNEREFIK))  GO  TO  550 

INPH 

135 

530 

CONTINUE 

I NPH 

136 

WRI TE  (6, 540  > MFIELO,  BUFFER,  CNTNATN 

INPH 

137 

5A0 

FORMAT (IX 71 X,*UNRECOGN 17 ABLE  MNEMONIC *71 X,A10,60R1,A107> 

INPH 

130 

GO  TO  5 

INPH 

139 

550 

WRITE  (6, 5 60)  MFIELO.BUFFER.CNTNATN 

INPH 

140 

560 

FORMAT (IX ,A10,60R1 . A 1 0 » 

INPH 

141 

C**MOVE  OATA  FIELDS  INTO  APPROPRIATE  PARAMETER  VARIABLES 

INPH 

142 

GO  TO  (600, 610, 660 ,670, 640, 640, 640, 640, 640, 640  ,720,700,710, 

INPH 

143 

1 650, 6 B0,  700, 5, 5, 650,690  ,690, 730)  J 

INPH 

144 

600 

CALL  STNOT(NULL)  * GO  TO  5 

INPH 

145 
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610 

CALL  M SO T (NULL)  1 GO  10  5 

INPH 

146 

64  0 

CALL  NLINPUT  S GO  TO  1990 

INPH 

147 

600 

CALL  NSCOTINUILI  S GO  TO  5 

INPH 

148 

660 

CALL  INI T OT  S GO  TO  5 

I NPH 

1 49 

670 

CALL  HYOROT ( NULL  1 I GO  TO  6 

INPH 

150 

680 

CALL  CNTROT  S GO  TO  5 

I NPH 

151 

690 

CALL  I NPL  TOT  S GO  TO  5 

INPH 

152 

700 

CALL  INPROT  S GO  TO  5 

INPH 

153 

710 

CALL  INSEGDT  (NULL  , NULL  .NULL, NULL. NULL) 

S GO  TO  5 

INPH 

154 

72C 

CALL  INTROT  1 NULL  1 SGO  TO  1990 

INPH 

155 

730 

CALL  INDNPOT  S GO  TO  5 

INPH 

156 

C • • C HE  C K IF  CONTI  NATION  FIELO  EXPECTEO 

INPH 

157 

1990 

IF  (ICFIELO  .EQ.  0)  GO  TO  5 

INPH 

158 

C**CHECK  FOR  BLANK  CONTINUATION  FIELD 

INPH 

159 

IF  (CNTNATN  .EQ.  1 OH 

1 GO  TO  5 

INPH 

160 

C ••STORE  CONTINUATION  FIFLO 

I NPH 

161 

IC0L2X»CNTNATN 

INPH 

162 

00  2000  1=1,10 

INPH 

163 

IF  ( ( IC0L2X  .AND.  77000000000000000000B 

1 .NE.  1L  1 GO  TO  2010 

INPH 

164 

2000 

IC0L2X«SHIFT(IC0.  2X.6I 

INPH 

165 

CS 

STORES  (ICNT  AR) 

INPH 

166 

2010 

ICNIARll, ISTOREI  = SMIF T ( IC0L2X . AND.  0 0 777 7 77  77 77 7 7 777 7 7 78 , 61 

INPH 

167 

C»*STORE  HNEHONIC  FIELO  AND  A SUPPORT  FIELO 

INPH 

168 

KS T ORC  = IC NT AR( 2,  ISTOREI 

I NPH 

169 

IF  (ISTORE  .LE.  ISTCNTI  GO  10  2020 

INPH 

170 

NRITE (6, 20151 

INPH 

171 

2015 

F0RNAT<1X,»DECK  scrambling  EXCEEOS  SlORAGE  CAPABILITIES. ‘/lX.'ORDE 

INPH 

1 72 

IR  JECK  BETTER  OP  INCREASE  ISTCNT  ANO 

SECOND  DIMENSION  OF  ICNTAR.» 

INPH 

1 73 

21 

INPH 

174 

STDP 

INPH 

175 

202C 

CONTINUE 

INPH 

1 76 

ICNTAR12, ISTOREI  =HNEMNC 

INPH 

1 77 

ICNTAR 13, ISTOREI =ISFIELO 

INPH 

1 78 

Ct 

OFF  C STORES) 

INPH 

179 

C*»SET  POINTER  INDICATING  NEXT  AVAILABLE  STORAGE  LOCATION 

INPH 

180 

IF  ( 1 STORE  .NE.  JSTOREI  GO  TO  2050 

INPH 

181 

KS  TORE* JS  TORE  TORE  M 

INPH 

182 

CS 

STORE S (IS  T ORE  1 

INPH 

183 

2050 

IF  (ISTORE  .GT.  NSCNTNI  NSCN  T N=I S TORE 

4 

INPH 

184 

ISTORE  = KS  TORE 

INPH 

185 

CS 

OFF  ISTORE  Si 

INPH 

186 

ICFIELD=1 

» • **  , 

INPH 

187 

GO  TO  5 .. 

A 1 „ * 

INPH 

188 

END 

V \ • A . ^ 

INPH 

189 

BLOCK  DATA 

INPH 

190 

OINENSION  NAPPLY 1 201 

INPH 

191 

COnnon/cblok/ncalC.nhstns.ngroup,  nl  191 

r NL  I N V ( 9 ) » MNLBNL2C90)  , 

INPH 

192 

1 ITYPEdBI,  YCRITAMBI,  VCRITAdBI  .IBSTOREI  3501  , 1 HSTORE  C 7 00  1 • 

INPH 

193 

3 KNOROS12) ,NP(21  , IFIRST,  NAPPLY 

INPH 

194 

OATA  NCAL C.  NMSTNS/9.20/ 

I NPH 

195 

DATA  NLINV/3,5,7,9.11,13,15,17,19/ 

I NPH 

19b 

DATA  NAPPLY/0,1,1, 1.2.2. 3 , 3 , 4 , 4, 5 , 5, 6 , 

6,  7,7 ,8, A, 9, 9/ 

I NPH 

197 

END 

INPH 

198 
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SUBROUTINE  NIINPUT 
CONPLEX  GROUP, GROUP* 

CONNON/FBLOK/FIELOA(6)  , I F < 6 » 

EQUIVALENCE  TIE  (1)  ,ISTN),  ( IF  ( 1 > ,ICOOE  > , (IF  t 2 I ,NE  XP  » , 

1 (FIELOA(2I,YCI,(FIELOA(3),C(1)I,(FIELOA(J),VC),(LOCC(1)  ,lOC4) , 
2(L0CC  (2>  , LOCB)  ,<*NSTORE(  1 ) ,1  N STORE  ( I I ) , ( OS  TORE  1 1 > , IBS  TORE  <11  I 
CONHON  /INPT2/J,ISFIELO,BUFFER(bO)  .ICFIELO 
01 NENSION  «W0RDS(2)  ,NP(2) 

01  HE  NS  I ON  KENOARY  (4,2)  , N U KEND  (21  , NNOR  OS ( 2 I 
01  NENSION  IFRMTI4)  , C (4  I , I NOR  0 ( SI  ,LOCC  (2)  , 

1 ANSTORE  (350,2)  .BSTORE  (350  >,MC(28)  ,LCL  11  9) , IBST  ORE  ( 3 S 0 » 

1,1  NS  TORE  ( 35  0,  2 ) 

CONNON/CBLOK  /Nr A l C , NHST  NS,  N&ROIIP  , NL  , NL  I N V,  MNL  BNL2  , I TYPE  , TCR  I T A 
2,  VCRITA.IBSTORF.IHSTORE  ,KHOROS.NP,IFIRST  ,N  APPLY 

c * — 

01  HE  MSI  ON  NAPPL  Y ( 20 
01  NENSION  NCFS(IB)  ,NPEX»  (18) 

01  NENSION  GROUP*  ( 18)  , NL  ( 9)  ,NL  I NV  ( 9)  , MNLBNL  1 ( 5,  9 , 2 ) , I TYPE  ( 18)  . 

1 y;RITA(18>  ,VCRITA(1B>  ,MNL  BNL  2 (5 , 9 ,2 ) 

OATA  NPNCNX/1S/ 

DATA  NCALCNX  / 9/ 

C 

OATA  IFRHT/26529, TOO 03,3 20 OB, 3 552  8/ 

OATA  NCrS/3M,Z,2*  1,2, 3,  2*  1,2 , 3,4,  2*2 ,3,  2,3/ 

OATA  KEHDARY/2RLL, 2RGL ,2RLG, 2RGG, 1RL , 1RG/ 

OATA  NPEXP/5*  1,3, 2*4, 5, 6, 7, 2*8,2,2*14, 5,  7/ 

OATA  IFIRST/O/ 

OATA  MC/O, 3*1, 3*2,1, 2, 1,3*3, 2, 3,2, 1,3, 2, 1,2, 3, 1,3, 1,2*3, 2/ 

DATA  LCC/0,1,  2,  3, 4 ,5,6,8  , 10, 11,12, 14,  12,  20,  21,2  3,25,25,2  3/ 

OATA  NUN E WO/2 ,4/ 

IF  (ISFIELD  . EQ.  0)  GO  TO  20 
C**UNPACX  THE  SUPPORT  FIELO 

ICARO  = NOO  (ISFIELO,  10000) 

NJSTN*I3FIEL0-IC*RD 
GO  TO  25 

C**SET  FIRST-CARD  INOICCATOR 
20  ICARO'l 

C**CATECORY  INDICATORS 
Ct  STORES ( J J ) 

25  J J* J— 4 

CS  OFF (STORES) 

NB  = 2-NOO ( JJ ,2  > 

IT*(JJ*l>/2 

IF  (ICARO  .NE.  1)  GO  TO  5000 
C**FIRST  CARO 

CALL  FIELOS(  IFRNT(IT), 6, BUFFER!  Ill 
VVC*VC 

yyc*yc 

IF  (IT  .NE.  3>VVC*1.E20 

IF  (IT  .EQ.  1)YYC*1.E2C 

C**C HECX  IF  NEM  GROUP 

&ROUP=CHPLX(YYC,VVC) 

IF  (NGROUP  .EQ.  0)  GO  TO  2320 
00  2110  1*1, NGROUP 

IF  (GPOUP  .EQ.  GROUPA(II)  GO  TO  2325 
231C  CONTINUE 
2320  NGROUP*NGROUP*l 
I* NCR  OOP 

GROUP* (NGROUP) 'GROUP 
VC RI T A INGROUP) »VYC 
VCRI  T A (NGROUP ) *VVC 
ITYPE(NGRdUP)*IT*  ((IT-D/2I 
C*  *P  REPARE  GROUP  COOE  WORD 
2325  NJSTNMOOOBMSTN 
IHORO  (1)*MJSTN*I 
C**PREPARE  FILLER  COOE  MORO(S) 

Il*4-IT 

INSERT*II»II/2 

IF  (INSERT  .EQ.  II  GO  TO  2400 
ITENP*NJSTN*990C 
00  2350  1*2, INSERT 
2350  IN9ROII)*ITENP»I 


NLP  T 

2 

NLPT 

J 

NLPT 

4 

NLPT 

5 

NLPT 

6 

NLPT 

7 

NLPT 

» 

NLPT 

■i 

NLPT 

10 

NLPT 

11 

NLPT 

12 

NLPT 

13 

NLPT 

14 

NLPT 

15 

NLPT 

lo 

NLPT 

12 

NLPT 

18 

NLPT 

19 

NLPT 

20 

NLPT 

21 

NLPT 

22 

NLPT 

23 

NLPT 

24 

NLPT 

25 

NLPT 

26 

NLPT 

22 

NLPT 

28 

NcPT 

29 

NLPT 

30 

NLPT 

31 

NLPT 

32 

NLPT 

33 

NLPT 

34 

NLPT 

35 

NLPT 

36 

NLPT 

32 

NLPT 

38 

NLPT 

39 

NLPT 

40 

NLPT 

41 

NLPT 

42 

NLPT 

43 

NLPT 

44 

NLPT 

45 

NLPT 

46 

NLPT 

42 

NLPT 

48 

NLPT 

49 

NLPT 

50 

NLPT 

51 

NLPT 

52 

NLPT 

53 

NLPT 

5« 

NLPT 

55 

NLPT 

56 

NLPT 

52 

NLPT 

58 

NLPT 

59 

NLPT 

60 

NLPT 

61 

NLPT 

62 

NLPT 

63 

NLPT 

64 

NLPT 

65 

NLPT 

66 

NLPT 

62 

NLPT 

60 

NLPT 

69 

NLPT 

20 

NLPT 

21 

NLPT 

72 

NLPT 

73 

98 
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C'M«£<I  NORO(SI 

NLPT 

74 

I«EY*Q 

nlpt 

7$ 

2*00  00  2*20  I*1,INSETT 

NLPT 

76 

2420  COLL  BUILD(INORO(I>,HNIBNL1<1,1,NB*,NMOROS<NB>,NP» 

NLPT 

77 

IF  (IT  .NE.  1 .OR.  ICARO  .NE.  11  GO  TO 

BOOO 

NLPT 

70 

IF  (IT  .EQ.  1 .ANO.  IKFT  .EQ.  11  GO  TO 

0000 

NLPT 

79 

irey*i 

NLPT 

OO 

GO  TO  $010 

NLPT 

01 

C**  SUBSEQUENT  CAROS 

NLPT 

• 2 

$000  CALL  FIEL0SUFRNM4I  ,6,BUFFER(  1>> 

nlpt 

01 

$010  L0C  = L0CC(N8*=L0CC(M8>M 

NLPT 

04 

IF  ( KEIF  .GE.  1 .ANO.  NEAP  .IE.  NPNCHX! 

1 GO  TO  501$ 

nlpt 

0$ 

NRITE  (A.  $01 2) 

NLPT 

06 

$012  FORNATdX, TERROR  IN  COLS  21  - 30.  CARO  IGNORED. •/• 

NLPT 

07 

GO  TO  BOOO 

NLPT 

00 

$01$  CONTINUE 

NLPT 

09 

CS  STORES(NN) 

NLPT 

90 

NN  = NCFS(NEXPI 

NLPT 

91 

CS  OFF (STORES) 

nlpt 

92 

IF  (MB  .EQ.  2 > GO  TO  $000 

nlpt 

91 

C»»ADOEO  NASS  COEFICIENTS  AnO  FIRST  DERIVATIVE 

nlpt 

94 

INSTORE! LOC , 1) =NEXP 

nlpt 

9S 

INSTORE(LOC,2>=NPEXP(NEXP> 

NLPT 

96 

00  $34$  I *1 . NN 

nlpt 

97 

LOCA«LOCA«l 

NLPT 

90 

ANSTORE(LOCA.l)  =C(I) 

NLPT 

99 

$34$  AMSTORE(LOCA,2I *NC (LCL (HEAP) ♦ I t »C ( I) 

NLPT 

100 

GO  TO  2000 

nlpt 

101 

C»»BUOYANCY  COEFICIENTS 

NLPT 

102 

6000  19STORE(LOCB>  =NEXP 

NLPT 

103 

00  6350  1=1, NN 

NLPT 

104 

LOCB*LOCB*1 

NLPT 

10$ 

63$0  BS TORE (LOCB) =C  < I > 

NLPT 

106 

C**OECIPNER  CONDITION  CODE 

NLPT 

107 

7100  IF  (IT  .EQ.  1)  GO  TO  7 600 

NLPT 

100 

CALL  SCAN(BUFFER,  1 , 10  .XEHOART  ( 1 , 4-1  T ) 

.NUKE  NO  ( IT-i)  , IKEY,  NULL* 

NLPT 

109 

IF  (IKEV  .NE.  0)  GO  TO  7S00 

NLPT 

110 

WRITE  <6, 7 100 • 

nlpt 

111 

7100  FORNATdX,*  ILLEGAL  CONOITION  CODE.  CARO  IGNORED.  *71 

NLPT 

112 

GO  TO  0000 

NLPT 

113 

C»»PREPARE  COEFICIENT'LOCATION  CODE  NORO 

NLPT 

114 

7500  IN3R0«1»=NJSTNM  BOOM  KEY  ♦LOC 

NLPT 

115 

INSERT=1 

NLPT 

116 

GO  TO  240  0 

NLPT 

117 

C**SET  INDICATORS  FOR  SUBSEQUENT  CAROS 

NLPT 

110 

0000  IF  (ICARO  .EQ.  2MT-11  GO  TO  $000 

NLPT 

119 

ICFIE10>1 

NLPT 

120 

ISFIELO*NJSTN ♦ICARO  41 

NLPT 

121 

RETURN 

NLPT 

122 

9000  ICFIEL0=0 

NLPT 

123 

RETURN 

NLPT 

124 

C**OECOOE  ARRAY  OF  CODE  WORDS 

nlpt 

125 

ENTRY  NLFIN 

NLPT 

126 

IF  (NWOROS(l)  .EQ.  KMOROS(l)  .ANO.  NNOROS(2>  .EQ.  KN0RDS<21> 

NLPT 

127 

l RETURN 

NLPT 

124 

IF  (NWQRDS(1175*5.NE.  NNOFOS(l)  .OR.  NNOROS  (2  » 7 5»5  .NE.  NNOROS(2»» 

nlpt 

129 

1 GO  TO  1B100 

NLPT 

130 

XNOROS(ll=NNOROS(tl 

NLPT 

131 

KW0ROS(2> =NNORDS<2*  j 

NLPT 

132 

NNOROSdl  =NNOROS(l  >/$ 

nlpt 

133 

NNORDS 1? ) *NW0R0S(2»/5 

nlpt 

134 

00  9180  IK=1,2 

nlpt 

135 

IN  = NNOROS(IKI 

nlpt 

136 

00  9100  I J*  1,  I N 

nlpt 

137 

<STN«NNLBNL1(  1 .IJ.IX)  710  000 

NLPT 

130 

00  9120  IJA=1,NCALC 

NLPT 

139 

IF  (KSTN  .EQ.  NLINV(IJA) 1 GO  TO  9130 

nlpt 

140 

9120  CONTINUE 

nlpt 

141 

GO  TO  13000 

nlpt 

142 

9130  NL (I JA1 *NL ( I JA) ♦3*IX 

NLPT 

143 

DO  9100  I JA=1 ,$ 

NLPT 

144 
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9160  NNLBNL21 ljAtIJ(IW> *M00 IN NLBNL 1 <1 JA , I J . IK)  1 1 000 1 

NLPT 

NW0R0SI1) *KWOROSI 1 > 

NLPT 

Nil  39  OS  (2 1 *K WORDS!?) 

NLPT 

RETURN 

NLPT 

c**error  MESSAGES 

NLPT 

1010C  WRITE  16.18200) 

NLPT 

10200  FORHATC1X, ’COUNT  ERROR  IN 

NL--  CAROS’  1 

NLPT 

STOP 

NLPT 

13000  WRITE  16. 13100)  XSTN 

NLPT 

13100  FORNATUX.’NL--  CIROS  ANO 

MY ORO- 04  T A 00  NOT  AGREE  AT  STATION*. 

NLPT 

1 IS) 

NLPT 

STOP 

NLPT 

C”INITIALI2AT10N 

NLPT 

ENTRY  NUN 

NLPT 

IF  TIFIRST  .£0.  0)  KWORO S ( 1 ) *KWOR0S( 2 ) *3 

NLPT 

NNOROST1I  *K NOR OS  111 

NLPT 

NWORDSI2) sKNOROS ( 2 ) 

NLPT 

IF  1 1 FIRS  T ,EQ.  11  RETURN 

NLPT 

IFIRST*! 

NLPT 

NO  ROUP*  0 

NLPT 

loca*lo;b=o 

NLPT 

NMOROST1I  «NWOROS«?I*0 

NLPT 

00  1400  I * 1 . NCALCMX 

NLPT 

1400  Nl 1 1 ) «0 

NLPT 

RETURN 

NLPT 

ERO 

NLPT 

145 

146 
14  2 
144 
149 

158 

151 

152 

1 53 

154 

155 

156 
152 
156 

159 

160 
161 
162 

163 

164 

165 

166 
162 
168 
169 
128 


100 
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k 


SUBROUTINE  CNTRN 

INCN 

2 

c 

INCH 

3 

C” 

CONTROL  PARAHETERS 

INCN 

S 

c 

INCN 

S 

DINENSION  KENOARY ( It 

INCN 

6 

CONHON/INPT2/J,  ISFIELO  ,1  SUFFER  (60  1 f ICFIELO 

INCN 

T 

CONNON/INPT1/IEOF,  B(ll,2)  , TSTRT.HNNI  , TF,  N (1 0,2)  . NM(2  1 ,EFS  (SI  > t 

COS 

2 

1A8SERR(91>  , XL  NOTH  , TCPU,  CONTROL  (6 ) 

COS 

3 

C”SET  DEFAULTS 

INCN 

9 

CONTROL (2  (■CONTROL  < S >« CONTROL  (SI  *2HN0 

INCN 

10 

RETURN 

INCN 

11 

C” 

ACCEPT  OATA 

INCN 

12 

ENTRY  CNTRDT 

INCN 

13 

00  10  Ml»3 

INCN 

IS 

INCN 

IS 

LS2»LS1»9 

INCN 

lb 

00  S KK  ■LS&tLS? 

INCN 

17 

IF  (ISUFFER(KK)  .EQ.  IRYI  CO  TO  7 

INCN 

IS 

S 

CONTINUE 

INCN 

19 

CO  TO  11 

INCN 

20 

7 

CONTROL (K’1)X3H YES 

INCN 

21 

11 

CONTINUE 

INCN 

22 

RETURN 

INCN 

23 

C”0ATA  ECHO 

INCN 

2b 

ENTRY  CNTFIN 

INCN 

25 

NRITE  (St  St  > (CONTROL(l)  ,l«2.S> 

INCN 

26 

5# 

FORNATIlH-t •CONTROL  OPTI ONS’FTIO, ’PUNCH  FINAL  CONDITIONS’, TS0,A3/ 

INCN 

27 

1 Til, ’NON-LINEAR  HYDRO  F ORCE*  , TSO  «A3/T 10 ,* HYDRO  DAMP  INC’  « TSO , A3) 

INCN 

26 

RETURN 

INCN 

29 

END 

INCN 

30 

I 
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SUBROUTINE  MSTIN  (ITS* 

INHY 

2 

c 

INHV 

S 

C**HALF  STATION  OATA 

INHY 

A 

C 

INHV 

S 

CONNON  /HBLOK/  KAG  ( 21)  ,R  INTI  21)  , E I ( 20  > ,SHPNS(  20  > , OANPC  ( 20  > , 

COl 

2 

1 OKI,  NEVAl.  SPEED,  SUOV  SPG  (9)  , SCF  1 9) , A DONS  (9 1 . VRTNSI2  0)  , I8EG 

, IE  NO 

COl 

S 

CONNON  /INPT2/J.ISFI EL  O,  BUFFER  (A0  ) .ICF1ELO 

INHV 

2 

OI  PENSION  YS(91),SM21),G00T(21I  , BOH  (20)  , TOOT  1 20)  ,VH(9I 

INHV 

8 

CONNON/FBLOK/F  IElOA<6)  « IF  (61 

C02 

2 

CONNON  //VS 

INHV 

10 

EQUI  VALENCE 

COS 

2 

1 (TS,TH),(TS(l»),TOOT),  ( TS(  30),  GOOD  , (VS  (5  1)  , BON)  , ( VS<  2 1 ) , 

SFI 

cos 

S 

OATA  KX/B/ 

INHV 

12 

IF  (ITS  .EQ.  II  GO  TO  A 

INHV 

IS 

GO  TO  (2,3)  ITS 

INHV 

1A 

* 

ITC  «1 

INHV 

IS 

RETURN 

INHV 

16 

] 

IDC*1 

INHV 

12 

RETURN 

INHV 

IS 

C**SET  DEFAULT  VALUES 

INHV 

19 

A 

ITC-IOC*! 

INHV 

20 

IF  (KX  .EQ.  1)  RETURN 

INHV 

21 

KOI 

INHV 

22 

DO  f I>1, 21 

INHV 

23 

5 

SMPNS  ( I)  a El  (I)  »DANPC(II*VOOT(  IlaBOHlI  )a(). 

INHV 

2A 

RETURN 

INHV 

25 

C** ACOEPT  OATA 

INHV 

26 

ENTRY  MSOT 

INHV 

22 

CALL  FIELOS(S2S2B, 6, BUFFER) 

INHV 

28 

IaFIELOAIllt.SOIOIl 

INHV 

29 

SNPMS (I) aFIELOA (2) 

INHV 

30 

El (I) *FIELOA(3) 

INHV 

31 

IF  (IOC  .EQ.  1)  GO  TO  10 

INHV 

32 

OANPC  (I)  af  IEL  0A(A) 

INHV 

33 

11 

IF  (ITC  .EQ.  1)  RETURN 

INHV 

3A 

TOOT  ( II  aFIELOA  (S) 

INHV 

35 

BON( I) aFIELOA (6) 

INHV 

36 

RETURN 

INHV 

32 

C**OATA  ECHO 

INHV 

38 

ENTRY  HSTFIN 

INHV 

39 

CALL  INONFIN 

INHV 

A0 

WRITE (6,211 

INHV 

A1 

ED 

FORNAT (1H-,  *HALF  STATION  OATA*///T10,*SHPNS  > HASS  PER  UNIT 

LENGTH 

INHV 

A2 

i*/Tll,  *EI  > BENDING  RIGIDITY 

INHV 

A3 

!•/ Til, ’OANPC  a STRUCTURAL  OANPING  COEFICIEN  T* /T 10  ,*T DOT  a INITIAL 

INHV 

AA 

2 VERTICAL  VELOCITV*/T10, *80H  a INITIAL  BENDING  MOHENT •/// 

INHV 

AS 

3 IK,  ’HALF “STATION*  , T19  »•  SMPNS*  ,13  A»*EI*»  TA9  »*OAHPC*»  T6A,  *VDOT*, 

INHV 

A6 

A TFI,*BON*l 

INHV 

A2 

OB  AB  Lai ,21 

INHV 

AS 

Haf.S 

INHV 

A9 

AD 

WRITE  (6, SOI  H,  SMPNS (L ) ,E  I (L)  , OANPC  (L  1 ,YOOT(L)  ,BON(L) 

INHV 

50 

SI 

FORNAT (IX, FS.l, T16.SE IS.  7) 

INHV 

51 

END 

INHV 

52 

102 


i 
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Table  12  (Continued) 


SUBROUTINE  HV  OIN ( I TS 1 

INHYO 

Z 

c 

INHYO 

3 

C**  HYDRO  OAT'a 

INHYO 

A 

C 

J 

INHYO 

S 

CONNON; /INPTZ/J.ISFIELO, BUFFER  (60  3 .ICFIELO 

INHYO 

6 

CONNON  /HBLOK/  KACIZlt  ,RINT(2ll.EI  (20  ) ,SMPNS(20  1 , OANPC(Z03  . 

COl 

Z 

1 OKI. NEVAL, SPEED, BUOY  SPG  (93  , SCF 1 9)  , ADOHS  ( 9>  , VRTHS  (20)  , IBEG,  IE  NO 

COl 

3 

C9NNOM/F BLOK/F It L DA ( 63  ,IF(63 

COZ 

Z 

OINENSION  T STS  13  , SF  ( 211 , GOOT  ( Zll  , BON  < 201  , TOOT  (20  » , VM  < 93 

INHYO 

9 

CONNON  //YS 

INHYO 

IB 

EQUIVALENCE 

C03 

Z 

1 (VS.VHI  , (TSUOI  , YOOT3,  (TS<  3fl),GDOT>  , (YS  (S  13 ,8DN3  , ( VS(F1  3 ,SF3 

C03 

3 

CONNON  /HOOLOK/HYOOAMP (9  3 

INHYO 

1Z 

OATA  KX  /$/ 

INHYO 

13 

IF  (ITS  .EQ.  B3  GO  TO  1 

INHYO 

1A 

nt  » i 

INHYO 

IS 

RETURN 

INHYO 

16 

C**SET  DEFAULT  VALUES 

INHYO 

IF 

t 

ITC-1 

INHYO 

18 

IF  (KX  .EQ.  IS  RETURN 

INHYO 

19 

KI»l 

INHYO 

ZO 

'JO  S 1*1,9 

INHYO 

Zl 

9 

BOONS (I) * BUOY  SPG ( 1 3 *SCF ( I 3*H YDDAHP(I )*VH(I3*0. 

INHYO 

zz 

RE  TURN 

INHYO 

23 

C**ACC£PT  DATA 

INHYO 

2 A 

ENTRY  HYDROT 

INHYO 

25 

CALL  FIEL  OS ( 32528, 6, BUFFER) 

INHYO 

26 

IF  (IF(1I  .LT.  3 .OR.  IF  ( 13  .GT.  19  .OR.  (IF(l)/2)*2  .EQ.  IF(1)3 

INHVD 

27 

1 GO  TO  90 

INHYO 

ZB 

I"  ( IF (13 -13 /2 

INHYO 

29 

AOONSdl  »FIELOA(Z3 

INHYO 

30 

BUOY  SPOT  I)*FIE10A(33 

INHYO 

31 

SCF  ( 1 3*FIELOA  ( A3 

INHYO 

32 

HYDOAHP(I3*FIELOA(53 

INHYO 

33 

IF  (1TC  .EQ.  13  RETURN 

INHYO 

3A 

YH(tl*FtELOA(63 

INHVD 

35 

RETURN 

INHYO 

36 

ENTRY  HERR 

INHYO 

3F 

91 

NRITE  (6,  IBB)  IF  (13 

INHVD 

38 

111 

FORNAT (IX , *HVORO-FORCE  CANNOT  BE  CALCULATED  AT  STATION*,  1 103 

INHYO 

39 

RETURN 

INHYO 

AO 

C**0ATA  ECHO 

INHYO 

A1 

ENTRY  HYOFIN 

INHYO 

AZ 

NRITE (»,Z0II 

INHYD 

A3 

ZM 

FORNAT (1 H-, *HVDRO-FORCE  OATA* //T 10 ,* ADOHS  • LINEAR  ADOEO  NASS*/ 

INHYO 

AA 

1 TIB  * *BUOV  - LINEAR  6YOV ANCY*/T10 , *SCF  • SNITH  CORRECTION*/ , T10,*H 

INHYO 

AS 

ZONP  • HYORO-OAH*ING*/T1I ,*YH  * INITIAL  VERTICAL  DISPLACEHENT*/// 

INHYO 

A6 

3 lX,*STtTION*,T20,*ADONS*,T3S,*BUQY*,TSO,  *SCF*,T65,*H0NP*,T80, 

INHYO 

AZ 

A*VN*1 

INHYO 

AB 

00  Z98  1*1,9 

INHYO 

A9 

I*Z*l*l 

INHYO 

50 

Z5« 

MRITE  <6,3003  I,  BOONS  (L3 ,8UOYSPG(L  3 ,SCF(L3  .HYOOANP  (L  3 , TH(L  3 

INHYO 

51 

311 

FORNAT  (IX  ,1 5,10V, SE15.  Tl 

INHYO 

52 

ENO 

INHYO 

53 

103 


II 


Table  12  (Continued) 


SUBROUTINE  INOMPIN 

ONP 

2 

c 

ONP 

3 

C**  PARE  METERS  FOR  CALCULATING  STRUCTURAL  OAMPINF 

ONP 

4 

C 

ONP 

5 

CONNON  /H8L0K/  X AG <21 ) ,R I NT < 2 1 ) .E I <20 ( .SHPNS <20 > , OANPC <20 > , 

C01 

2 

1 0*1, NCVAL,  SPEED, 8UOT  SPG  (9)  , SCF  ( 91  , A OONS  <9I,VRTMS<20)  ,I3EG,ICN0 

C01 

3 

CONHON/F8LOK/F  IEL0A(6I  , IF<6> 

C 02 

2 

connon/inpt 2/j,isfielo, buffer  (6oi  .icfielo 

ONP 

« 

OATA  KX,P  I/O  , 3.1415926535898/ 

ONP 

9 

C** ALLOtt  COEFICIENTS  TO  BE  ON  HALF-STATION  CAROS 

ONP 

10 

CALL  HSTIN(O) 

ONP 

11 

FPI  • 2. 

ONP 

12 

RETURN 

ONP 

13 

C**OANPC  CARO  OETECTEO 

ONP 

14 

ENTRY  INOHPDT 

ONP 

15 

**•1 

ONP 

16 

CALL  HSTIN(2> 

ONP 

IT 

CALL  FIELDS  (5000B,  6, BUFFER) 

OMP 

IS 

CPSNA  T*FI  ELOA  ( 11 

ONP 

19 

PCCO'FIELOA  (21 

ONP 

20 

RETURN 

ONP 

21 

C**CALCULATE  DAMPING  COEFICIENT 

ONP 

22 

ENTRY  INONFIN 

ONP 

23 

CALL  HFCIN(NULL, NULL, NULL, NULL) 

ONP 

24 

IF  (KX  .EQ.  0)  RETURN 

ONP 

25 

PN*FPI*CPSNAT*PCSO 

OMP 

26 

NRITE  (6,1)  CPSNAT  ,PCCO 

ONP 

27 

1 FORMAT (1H-, ‘STRUCTURAL  DAMPING  PARAHE  TERS*/ T10  » * NATURAL  FREQUENCY* 

ONP 

28 

1 • T3I ,E2I ,11, 5*,*NZ*/T10, ’PERCENT  DAMPING* , T30 , E 20. 1 0) 

ONP 

29 

00  9 IH*t  ,20 

OMP 

30 

5 OANPC (IN) *YRTMS<IH)*PM 

ONP 

31 

RETURN 

ONP 

32 

ENO 

ONP 

33 

104 


Table  12  (Continued) 


SUBROUTINE  INPLTIN 

I NPL 

2 

C 

INPL 

3 

C”  PLOTING  PARAMETERS 

I NPL 

6 

C 

INPL 

5 

01  PENSION  OFYLUUI 

INPL 

6 

CONNON  /1NPT2/J,ISFIELD,BUFFER(60>  .ICFIELD 

INPL 

/ 

COHNON/FBLOK/FICLOA(6>  « I F (6) 

C02 

2 

CONHON/PBLOK1/ NR, TTT <20> ,R (20) ,HS8STN,NANE,  CODE, PHONE 

C 06 

2 

COMNON/PBLOK4/NR£PLT,YLJ<2,4> 

CO/ 

2 

CONNON/INPTl/IEOF,  Bill  ,2  ) , TSTRT.HMNI , TF,  M 11  0 ,2)  ,NH(2>  ,EPS(91)  • 

005 

2 

1ASSERRI91)  , XLNGTH  , TCPU,  CONTROL*  A > 

C05 

3 

C”SET  DEFAULTS 

INPL 

12 

DATA  DFTLU.IOF  / A . , 1 . Eb  , 1 5.  , 0 / 

INPL 

13 

IFCIOF  .EQ.  1)  GO  TO  6 

INPL 

14 

NSBSTNMl 

INPL 

15 

NR  *9 

INPL 

16 

B(l,l)*M<l.ll*l.E20 

INPL 

1/ 

NNI1>*1 

INPL 

10 

00  5 l = 1,3 

INPL 

19 

YLU(1,L)  = -OFYLUCL) 

INPL 

20 

5 YIUI2.L)  * OFYLUTL) 

INPL 

21 

IOF  * 1 

INPL 

22 

6 CONTINUE 

INPL 

23 

RE  TURN 

INPL 

24 

C”ACCEPT  DATA 

INPL 

25 

ENTRY  INPLTOT 

INPL 

26 

IF  IJ  .EQ.  21)  GO  TO  15 

INPL 

2/ 

C”PLOT  CARO 

INPL 

20 

ENCODE  130  >10,  NAME)  <BUFFER«L>  ,L  = t,3  0> 

INPL 

29 

10  FORNAT  <30R1> 

INPL 

30 

CALL  FIEL0S(51B,6, BUFFER) 

INPL 

31 

NR*1 

INPL 

32 

MU,1)-FIELDA«4> 

INPL 

33 

R<1)’FIEL0A<5) 

INPL 

34 

NREPLT  * IF(6) 

INPL 

35 

RE  TURN 

INPL 

36 

C”A«S  CARO 

INPL 

3/ 

15  CALL  FIELDST5252B.6, BUFFER) 

INPL 

30 

00  20  1 = 1,6 

INPL 

39 

20  YLU(L)«FIELOA(L) 

INPL 

40 

RETURN 

INPL 

41 

C” OERIYEO  PLOTTING  PARAMETERS 

INPL 

42 

ENTRY  INPLFIN 

INPL 

43 

IFTNR  .EQ.  0)  SO  TO  900 

INPL 

44 

IF  INREPLT  .EQ.  3)  GO  TO  000 

INPL 

45 

812# 1)  ■ TF 

INPL 

46 

ma»Bii,i)>$. 

INPL 

4/ 

TTTI2)»TF 

INPL 

40 

C”OATA  ECHO 

INPL 

49 

000  HRITE  <6,  251  NAME  , CODE  , PHONE, N (1,  l ) ,R  ( 1 ),  YLU 

INPL 

50 

25  F0RMATUN-, ’PLOTTING  PARAMETERS’  , 20  X,  IA10 /E  20.0 , 5X,  • SECS  8ETMEEN 

P INPL 

51 

1LOTTEO  VALUES*/E29.0,5X,  ’SECS  PER  FRAME*///5X,’AXES  LIMITS’// 

INPL 

52 

2 T 10 , ’PITCN’T20, 2E20.0/T10,’MOSNP  8N0G  MNNT • , T20 , 2E2 0 . 0/ 

INPL 

53 

2T 10#  ’MAYE  HEIGHT’, T20.2E20.0) 

INPL 

54 

RETURN 

INPL 

55 

90B  HRITE (G, 910) 

INPL 

56 

910  FORMAT  TIN-#  ’NO  PLOTTING’) 

INPL 

5/ 

RETURN 

INPL 

50 

END 

INPL 

59 

105 

m 
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Table  12  (Continued) 


subroutine  inprin 
••PRINTING  TINES 

CONNON/FBLOK/FIELOA  (61  , IF  (6) 

CONNON  2HBLOK2  KAG<21>  ,R INT (2 1 ) , E I <20 > ,SHPNS < 20 > * OAMPC (20 > , 

1 OKI  »NEYAL  * SPEED*  BUOY  SPG  « 9)  , SCF I 91 , A DONS  19  > , VRTHS<2  0>  ,IBEG,  IE  NO 
CONNON/INPT  1/IE OF *8(11*2)  , TSTRT.MHNI  , TF,  N < 1 0. 21  ,NW<2>  ,EPS(91>  , 

1ABSERR  (9 1 > , XL  NGTH  , TCPU,  CONI ROL 1 4 ) 

CONNON  /INPT2/J*  IS  FI  ELD*  BUFFER  (%0  I tICFIELO 
C**SET  DEFAULTS  (PART  1» 

NN (21 »0 

9(1*2)  « Nil, 2)  * 1.E20 

ISEC«IEN0>-1 

RE  TURN 

C»» ACCEPT  OATA 

ENTRY  INPROT 
IF  IJ  .EQ.  16)  GO  TO  S 
C**OEBUG 

CALL  FIELOS(240fB, 6, BUFFER) 

IBE6*IFI  1 ) 

IENO«IF(2) 

RETURN 
C»» PRINT 

S CALL  HSTOFN (BUFFER, 1 0*  NN ( 2 > , 8 ( 1*  2 > , M ( 1 ,2  ) * X MAX) 

IN«NM(2I  »1 
B( IN*  2) >XNAX 
RE  TURN 

ENTRY  INPRFIN 
C**DATA  ECHO 
10  I1*NN(2) 


INPR 

INPR 

INPR 

INPR 

C02 

COl 

COl 

cos 

cos 

INPR 

INPR 

INPR 

INPR 

INPR 

INPR 

INPR 

INPR 

INPR 

INPR 

INPR 

INPR 

INPR 

INPR 

INPR 

INPR 

INPR 

INPR 

INPR 

INPR 

INPR 

INPR 


NRITE  <6*201  IBEG.IENO,  (8(1 ,2)  *M(I  ,2)  ,I«l  ,11)  *B(1 1H.2)  INPR 

20  FORNAT(1H-,»OEBU5*/T10,»IBEG»,  110,  SX  , »IE  NO*  1 1 0/ 1M-,  •PRINTING  TINES  INPR 

1**//T5,E15«5,3(*(*,E15.5,*)*,EX5«  511  INPR 

RETURN  INPR 

END  INPR 


2 

3 

<* 

S 

2 

2 

3 

2 

3 

9 

10 

11 

12 

13 

14 

15 

16 
12 
IS 

19 

20 
21 
22 

23 

24 

25 
2b 
22 
28 
29 
33 

31 

32 

33 

34 

35 


Table  12  (Continued) 


SUBROUTINE  INTIN 

ININ 

2 

c 

ININ 

3 

c<* 

INITIAL  CONDITIONS 

ININ 

5 

c 

ININ 

5 

CONNON  / HBL OK/  (AG(21I  ,RINT(21I,£I  <20  1 ,SHPNS<20  I ,OAHPC<20), 

COl 

2 

1 DXI.NEVAL,  SPEED,  1UOY  SP  & ( 9)  , SCF  ( 9)  , A OONS  (9 ) . VR  TNS  < 2 0)  , 1 BEG,  IENO 

COl 

3 

CONNON/f  BLOK/EIEIO*  <61  ,IC<6> 

C 02 

2 

COHNON/INPTl/IEOF, B< 11 ,21 , TSTRT,  MHNI , TF,  N <1  0, 21  , NNC2  > .EPS  (91 1 , 

C05 

2 

LABSERR  <91 ) • XL  NOTH  , TCPU.  CONTROL  ( 5 ) 

C05 

3 

CONNON  /INPT2/J.ISFIEL  O,  BUFFER  <60  ) .ICFIELO 

ININ 

9 

DINENSION  TS<91»  ,SF<21),GDOT<2U  , BOH  <201  .TOOT  <201  ,YM<9> 

ININ 

10 

CONNON  //»S 

ININ 

11 

EQUIVALENCE 

C03 

2 

I (VS,  TNI  , ITS  <101  .TOOT)  , <YS(30>,GOOT),(YS<5l),BON),<YS(71),SF> 

C03 

3 

OR  TR  12,13,15/2.3,5/ 

ININ 

13 

C<» 

RLLOtt  I.C.'S  TO  BE  ON  STATION,  HALF- STA T ION , XYOROFORC  CAROS 

ININ 

15 

CALL  STIN  CO > 

ININ 

15 

CALL  HSTIN(O) 

ININ 

16 

CALL  HYOINC 01 

ININ 

17 

COLL  INTRIN(O) 

ININ 

18 

IST<IHS<IHV<0 

ININ 

19 

RETURN 

ININ 

20 

C»<TRANS6ENERATE0  I.C.'S  DETESTED 

ININ 

21 

ENTRY  INI  TOT 

ININ 

22 

CALL  FIELDSI  30  00B,  6,  BUFFER! 

ININ 

23 

CTVPE  = IF  <11 

ININ 

25 

FI  EL  OA  <1  ( *FIEL  0*  < 2) 

ININ 

25 

CALL  FIEL OS  < 12B, 3 , BUFFER  I 

ININ 

26 

GO  TO  (10,20,30,59)  KTYPE 

ININ 

27 

It 

TSTRTrFIELOA  <2  > 

ININ 

28 

CALL  INTRIN  < 1 ) 

ININ 

29 

RETURN 

ININ 

30 

29 

IF  (INS  .EQ.  1)  GO  TO  25 

ININ 

31 

INS»1 

ININ 

32 

CALL  HSTIN(l) 

ININ 

33 

25 

I<FIELOA(ll». 50001 

ININ 

35 

VD3T  ( JMFIELDA  (2) 

ININ 

35 

BON<I)»FIELOA<3) 

ININ 

36 

RE  TURN 

ININ 

37 

30 

IF  CIST  .EQ.  11  GO  TO  35 

ININ 

38 

IST«t 

ININ 

39 

CALL  STIN<1) 

ININ 

50 

35 

I<FIEL<M<1I  *.00C1 

ININ 

51 

GOOT (I).FIELOA (?) 

ININ 

52 

SF I II <FIELOA ( 3 ) 

ININ 

53 

RETURN 

ININ 

55 

40 

IF  (IHV  .EQ.  11  GO  TO  55 

ININ 

55 

INF*  1 

ININ 

56 

CALL  HV0INI1I 

ININ 

57 

55 

IF(l>>FIELOA<l)».OOtl 

ININ 

58 

IF  <IF<t!  ,LT.  3 .OR.  IF<1>  .GT.  19  .OR.  <IF<1)/ZI<2  .EQ.  1F<1I> 

ININ 

59 

1 CALL  HERR 

ININ 

50 

I>tIFIl>-ll/2 

ININ 

51 

TN<II<FIELOA<2I 

ININ 

52 

RETURN 

ININ 

53 

e 

ININ 

54 

c 

PUNCH  FINAL  CONDITIONS 

ININ 

55 

c 

ININ 

56 

ENTRY  PUNCHIT 

ININ 

57 

NRITE  (7,50)  TSTRT 

ININ 

58 

51 

FORNAK'INITIAL*,  T20,<1<  , T31.E20.  10) 

ININ 

59 

00  At  I>1,20 

ININ 

60 

HS<I-.5 

ININ 

61 

il 

NRITE  <7,701  I2,HS,YOOT<II , BOM  < I ) 

ININ 

62 

71 

F)RNAT<<IN(TIAL*,T11,I10,F10. 1.2E20.10) 

ININ 

63 

00  Bt  I< 1 ,21 

ININ 

64 

IF  II  .GT.  91  GO  TO  75 

ININ 

65 

II<2*I»1 

ININ 

66 

NRI TE  <7,901  15,  II , YM  < 1 1 

ININ 

67 

75 

II<I-1 

ININ 

68 

M 

NRITE  (7,901  13, II, GO  OT  (I)  ,SF(I> 

ik;n 

69 

91 

FORNAT<» INITIAL*, Til, 2 11 0.2E20. 10) 

ININ 

70 

ENO 

ININ 

71 

107 
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Table  12  (Continued) 


SUBROUTINE  INTRINIITSI  INTR 

I NTR 

••INTEGRATION  DATA  INTR 

INTR 

CONNON/FBLOK/FreiOAISI  , IF(6>  COZ 

CONNON/INPTl/IEOf.em.Z)  ,TSTRT,MMNI,TF,M(10.ZI  ,NM(Z>  ,EPS  (91 ) , CDS 
1ABSERR(91)  .XLNGTH  , TCPU,  CONTROL « 4 ) COS 

COMMON  /INPTZ/J, ISFIELO, BUFFERIbO  I .ICFIELO  INTR 

Dirt  XX/0/  INTR 

IF  (ITS  . £3.  01  GO  TO  1 INTR 

ITCM  INTR 

RETURN  INTR 

C”SET  DEFAULT  VALUES  INTR 

1 ITC*0  INTR 

IF  (NX  .EQ.  1)  Rr  TURN  INTR 

<X=t  INTR 

HNNI=TSTRT*TF=TCPU=0.  INTR 

RETURN  INTR 

C”  ACCEPT  OATA  INTR 

entry  introt  intr 

ISFIELO*ISFIELOM  INTR 

IF  (ISFIELO  .NE.  II  GO  TO  ZO  INTR 

C”FIRST  CARO  INTR 

10  CALL  FIEL0S(5Z4PB»Fi»BUFFERI  INTR 

MNNI*FIELOA  CD  INTR 

TF  sFIELOA ( 3 I INTR 

TCPUiFIELOAU)  intr 

IF  (ITC  .EQ.  1)  60  TO  Z9  INTR 

TSTRT  sFI ELOA ( Z I INTR 

GO  TO  Z9  INTR 

C”SFCORO  CARO  INTR 

ZO  CALL  FIEL0SI5ZSPB, 6, BUFFER!  INTR 

IF  (ISFIELO  .EQ.  3>  60  TO  Z1  INTR 

03  35  I * l.ZO  INTR 

IF  II  .GT.  91  GO  TO  31  INTR 

EPS(I>*FIEL0A(11  INTR 

JI  EPS(I’9) ’FIELOAIZI  INTR 

EPSII*Z9)  »FIELOAIJ)  INTR 

EPS  ( I *50  I *FIEL0A(4)  INTR 

35  EPS(I*70>  *FI£LOA(SI  INTR 

EPS(50)*FIELOA (3)  INTR 

EPSI91)«FIEL0A(SI  INTR 

Z9  ICFIELD’l  INTR 

RETURN  INTR 

C”ThIRO  CARO  INTR 

Z1  00  Z5  I * t,ZO  INTR 

IF  (I  .GT.  9)  GO  TO  Z3  INTR 

ABSERRI  IT*FIEL0A(1T  INTR 

Z3  A8SERRII *91 «F IE.OA (Z)  INTR 

ABSERRII*Z9T*FlfL0A(3»  INTR 

A9SERR(I*50> *FIFtOA (A)  INTR 

ZS  ABSERR(I’70I*FIELOA(5»  INTR 

A8SERR(50I*FIEL0A(3>  INTR 

ABSERRI  91 I ■FIELOA(S)  INTR 

ICFI£L0*B  INTR 

RETURN  INTR 

C”OATA  ECHO  INTR 

CRTRT  INTRFIN  INTR 

MRITC  (At ZIQ I HNNI, TSTRT ,TF,TCPU,  INTR 

1 EPS!  1 1 • EPS  ( 10 1 « EPS  ( 301  t EPSISII,  EPSIZlt.  INTR 

? ABSERRIll  .ABSERRI  101  .ABSERRI  30>  ,A8SERR(51>  ,ABSERR(71>  INTR 

ZM  FORRAT(lH-t ’INTEGRATION  OA  TA  ’//T  1 0 , ’MAXI  MUH  INTERNAL  STEP  SIZE  <HH  INTR 

1NI>’,T50,£Z0.10/T10, ’SIMULATION  START  I TSTR  T>  • , T5  0,E  ZO  . 13/T1 0, ’SI  M INTR 
3ULATI0N  ENO  ( TF > • . TSO, E ZO  . 10/ TIB , • CPU  SECS’  ,T50  ,£ ZO . 10/// TS, ’MAXIM  INTR 
1UN  ERRORS’/TZS ,’ VERTICAL • > INTR 

A T At,  • VERTICAL ’,TA0, ’ANGULAR’,  TOO, ’BE  NOING’.T  ICO, ’SMEAR’/ TZO  ,’OISP  INTR 
SLACENCNT’.TAO, ’VELOCITY*  ,T  60,  ’VELOCITY’,  T SO,  ’MOMENT’,  T 10  0,  ’FORCE’/  INTR 
ATS,  ’RELATIVE’,  TIS,  SCZO  . 1 0/M, ’ABSOLUTE’,  T1S.SEZ0.10>  INTR 

RETURN  INTR 

CRO  INTR 


Z 

J 

* 

5 

Z 

Z 

3 

i 

9 

10 

11 

1Z 

13 

1A 

15 

16 
17 
IS 
19 
ZJ 
Zl 

zz 

Z3 

Za 

ZS 

Zb 

Z/ 

ZS 

Z9 

30 

It 

3Z 

33 

34 

35 

36 
JZ 
39 
39 
AO 
41 
AZ 
A J 
4* 
AS 
AA 
4/ 
AS 
49 

so 

51 

SZ 

S3 

S* 

55 

56 
5/ 
SA 

59 

60 
61 
6Z 

63 

64 

65 

66 

67 

68 

69 

70 
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SUBROUTINE  NSCON 


Table  12  (Continued) 


2 

s 


INNS 
INNS 

N ISCELL  ANEOUS  OATA--  INNS 

SPEED  INNS 

SECTION  LENGTH  INNS 

INNS 

CONNON/FBLOK/FIFLOA(6>  * IF  (61  CDZ 

CQNNON  /H8L0K/  RIG  ( 21)  ,R  INK  21 1 , El  <30  ) ,SMPNS<  20  ) , DAHPCC20  I . COl 

l 0*1, NEVAL, SPEED, BUOY  SP  G < 9)  , SCF  ( 9 > , A DON  S ( 9 ) , VR  T NS  f 2 0 ) , I dEG,  IE  NO  COl 

CONNON/INPTl/IEOF.Btll ,21 , TS T RT, MNNI , TF, M ( 1 0 , 2 > , N M( 2 » , EPS ( 91 ) , COS 

lABSERRUt)  ,*LNGTH  , TCPU,  CONT  RUL  ( 4 ) COS 

CONHON  2INPT2/J,ISFIELD,8UFFER<b0 I .ICFIELD  INNS 

C»»SET  DEFAULT  V2LUES  INNS 

S°EE  0 = 0.  INNS 

0X1*1.  INNS 

RETURN  INNS 

C»»ACCEPT  OATA  INNS 

ENTRY  NSC OT  INNS 

CALL  F1ELOS«4000B,G,BUFFEPI  INNS 

IF  (J  ,EQ.  19)  GO  TO  10  INNS 

C ••SPEED  INNS 

SPEE0*FIELDA<1)  INNS 

RETURN  INNS 

C“  SECTI  ON  LENGTH  INNS 

10  OX  I*F  IELOA  < 1 ) INNS 

XLNGTM  * 16. *0X1  INNS 

RETURN  INNS 

C‘*OATA  ECHO  INNS 

ENTRY  NSFIN  INNS 

MRITE(6,20)  SPEED, OXI  INNS 

20  FORHAT(lH-,»NISCfLLANEOUS  OA  T AV/ T 10  , ’SPEED  * • , T20 ,£ 15. 2/T1 0 , INNS 

1 ‘SECTION  LENG  INNS 

1TH  * •.T30.E15.2I  INNS 

RETURN  INNS 

ENO  INNS 


5 

6 
2 
2 
2 
3 
2 
i 

11 

12 

13 

IS 

lb 

12 

18 

19 

20 
21 
22 

23 

24 

25 

26 
22 
20 

29 

30 

31 

32 

33 

34 
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Table  12  (Continued) 


SUBROUTINE  STIN(ITS) 

INST 

2 

C 

INST 

i 

C**STATI0N  CAROS 

INST 

4 

C 

INST 

5 

REAL  KAG 

INST 

6 

CONHON  / H BL  OK  / KAG(21> ,RINT(21),EI (20) ,SHPNS(20> ,OAMPC<20> , 

COl 

2 

1 OXI.NEVAL,  SPEED,  BUOY  SPG  < 9)  , SCF  < 9)  , A OONS  (9  > , VP  T MS  <2  0 ) , I BEG,  I ENO 

COl 

3 

CONHON  /INPT2/J,ISFIELP,BUFFER(GO),ICFIELO 

INST 

8 

OINENSION  YSI91>,SFI21),GD0T  1211  .BDMC20)  , *001(20)  ,YH(9) 

INST 

9 

CONHON  //YS 

INST 

10 

CONHON/FBLOK/FIELOAI6I  , IF  < E> » 

C 02 

2 

EQUIVALENCE 

C 03 

2 

i (vs.YHi.trsaoi.vDon.iYsmD.GOon.iYSisn.BDHi.irsan.sF) 

C03 

3 

OATA  KX  /O/ 

INST 

13 

IF  (ITS  .EQ.  01  GO  TO  1 

INST 

14 

ITC»t 

INST 

15 

RETURN 

INST 

16 

C**SET  OEFAUtT  VALUES 

INST 

17 

1 ITC>S 

INST 

18 

IF  (KX  .EU.  1)  RETURN 

INST 

19 

KK»l 

INST 

20 

00  5 1 = 1 , 21 

INST 

21 

5 KAS(II*RINT(I>*SF(I>=GDOT(I>  = .0 

INST 

22 

RETURN 

INST 

23 

C**ACCEPT  OATA 

INST 

24 

ENTRY  STNOT 

INST 

25 

CALL  FIEL0SI325B9, 6, BUFFER) 

INST 

2b 

I* IF ( 1 1 *1 

INST 

27 

KAG(I>»FIEL0A(2) 

INST 

28 

RINT  (I)=FIELOA  (3) 

INST 

29 

IF  (ITC  .EQ.  1)  RETURN 

INST 

30 

GDOT  (I)  = FIELOA(L) 

INST 

31 

SF(II  =FIEL0A  (5) 

INST 

32 

RETURN 

INST 

33 

C**OATA  ECHO 

INST 

3*# 

ENTRY  STFIN 

INST 

35 

MRITE (6t 101 

INST 

3b 

10  F0RHAT(1M1,  ‘STATION  OA TA*/// T 10, *KAG  = SMEAR  STIFFNESS*/ 

INST 

37 

1 T IS ,*RINT  = HONENT  OF  INERTIA*/ 

INST 

38 

l T 10 , *GOOT  = INITIAL  ANGULAR  VELOC IT Y •/ T 10, *SF  = INITIAL  SHEAR  FOR 

INST 

39 

2CE* 

INST 

40 

2////lX,*STATI0N*,T19,*KAG*,T3i»,»RINT*  , T<*9  ,*  GDOT*  , T69, 

INST 

41 

3 • SF* 1 

INST 

42 

DO  20  L* 1 , 21 

INST 

43 

I*L-1 

INST 

44 

20  NRITE  (6,3  0)  I , KAG  (L  ) ,R  IN  T (L)  , GDOT  (L ) , SF(  L ) 

INST 

45 

30  FORNAT(1X,IS,10X,4E1S«7) 

INST 

4b 

RETURN 

INST 

47 

ENO 

INST 

48 
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Table  12  (Continued) 


FUNCTION  IPMR2TJ) 

IPMR 

2 

C VALUE  RETURNED  IS  SMALLEST  POMER  OF  2 GREATER  THAN  OR  EQUAL  TO 

IPNR 

3 

JJ=J»1 

IPMR 

h 

IPMR2=1 

IPMR 

5 

1 CONTINUE 

IPMR 

6 

IFIIPMR2  .GE.  JJ)  RETURN 

IPMR 

7 

IPNRZ=IPMR2»2 

IPMR 

a 

GO  TO  1 

IPMR 

9 

END 

IPMR 

10 

SUBROUTINE  I SEARCH  ( X ,CLS MRK, NUCHS , IPP.IL  , IS  TATE  1 

SRCH 

2 

C ARRAT  »CLSNRK»  OF  FIZE  ‘MUONS*  IS  SEARCHEO  FOR  •*•.  IF  FOUNO, 

SRCM 

3 

C • ISTA  TE  • IS  SET  TO  1,  ANO  ‘IL*  IS  SUCH  THAT  »CLSNR<(ILI»  IS  EQUAL 

SRCH 

4 

C TO  IF  NOT  FOUNO,  ‘ISTATE*  IS  ZEROEO  ANO  ML*  IS  SUCH  THAT 

SRCH 

5 

C • CLSNRK  1 IL)  • .LT.  PLUS  • CL  SMRL  ( I L ♦ 1 ) • .GT.  FOR  »Il»  .NE. 

SRCH 

6 

C »NUCNS». 

SRCH 

7 

INTEGER  CLSNRK.X 

SRCM 

a 

01 NENSION  CLSNRXTSO) 

SRCH 

9 

AKOI 

SRCM 

13 

IF  TNUCNS.EQ.  01  GO  TO  TOO 

SRCH 

11 

J> IPP/2 

SRCM 

12 

K=IPP/4 

SRCH 

13 

IF(J  .GT.  N UC MS)  GO  TO  20 

SRCM 

14 

9 IF  (X  .GE.  CISMRMJ))  GO  TO  10 

SRCH 

19 

?0  IFIK.EQ.  01  GO  TO  bl 

SRCH 

16 

J*  J-K 

SRCH 

17 

A»«/T 

SRCM 

la 

IF«  J.GT.NUCMSI  GO  TO  20 

SRCH 

19 

GO  TO  9 

SRCM 

20 

10  IF  IK  .EQ.  0)  GO  TO  31 

SRCM 

21 

J*  J»K 

SRCH 

22 

K-K/Z 

SRCH 

23 

IF  « J .GT.  NUCHS ) GO  TO  20 

SRCM 

24 

GO  TO  9 

SRCM 

25 

31  KXX=J 

SRCM 

26 

GO  TO  91 

SRCH 

27 

41  K*K*J-1 

SRCM 

2a 

51  IFIKUK  .EQ.  0)  GO  TO  TC0 

SRCM 

29 

IF«X  .NE.  CLSNRK  ( KKK)  ) GO  TO  TOO 

SRCM 

3 J 

1ST  ATE-1 

SRCH 

31 

IL  *KKK 

SRCM 

32 

RE  TURN 

SRCM 

33 

TOO  ISTATE'0 

SRCM 

34 

IL  = KKK*1 

SRCM 

35 

RE  TURN 

SRCH 

36 

ENO 

SRCM 

37 
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Table  12  (Continued) 


REIL  FUNCTION  NOLEXINTYPC.C.X) 

NLX 

2 

Cl 

OE  BUG 

NLX 

J 

ct 

STORES  <NOLE  X) 

NLX 

4 

01  HE  NSI  ON  C(l) 

NLX 

5 

C0NN0N/N8L0CK/  OX 

NLX 

6 

GO  TO  <1,  2,  3, 4, 5 , S , 7 , 8, 9 , 10  , 1 1 ,12 . 1 3 . 14,  1 S 1 4,  1 7 , 181  NTT  PE 

NLX 

1 

1 

nolex  *cm  * return 

NLX 

6 

z 

NOlEX=C<l>*X  t RETURN 

NLX 

9 

3 

N0LEX=CI1)»0X  t RETURN 

NLX 

10 

4 

NOL  E X = C<  1 ) *X*C(?)  1 RETURN 

NL  X 

11 

5 

NOLEX*C< 1 » »X»»2  $ RETURN 

NLX 

12 

6 

NOl  E X=C  < 1 ) • DX  • • ? | RETURN 

NLX 

13 

7 

NOLEX*X»(C«l)»X*CI?t)  l RETURN 

NLX 

14 

5 

NOlEX  = X»  (C(  1>*X»C(2)  ) *C<  J)  1 RETURN 

NLX 

15 

9 

NO.EX^CI 1 > *X»»3  } RETURN 

NLX 

16 

10 

NOLEX  = CC  11  »OX»»J  t RETURN 

NLX 

17 

11 

NOlEX*X»»2»<C<ll»X*C<?l>  t RETURN 

NLX 

16 

12 

NOLEXrX*  « X»  (C  ( 1)  »X*C(2)1  *C  1 J»  » 

NLX 

19 

13 

NOLEX  = X»<  X»  <C  < 1>  •X»C<2)>  »C  <3>  > *C  <4>  I RETURN 

NLX 

20 

14 

NOLEX  =C<1)*X**2*C<?)  t RETURN 

NLX 

21 

15 

NOLEX  = X»<C<l)»X»»2*C<2))  t RETURN 

NLX 

22 

16 

NOLEX«X»<C<l>,X»»2*C(?t» *C<3)  % RETURN 

NLX 

23 

17 

NOlEX=C(l)#X**3*CI?J  t RETURN 

NLX 

24 

19 

NOLEX*X»»2»<CU)»X*C<?l)  »C  < 3 • 3 RETURN 

NLX 

25 

ENO 

NLX 

26 
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Table  i2  (Continued) 


SUBROUTINE  SCAN  (ISTRINC.ISTART.LENGTH.Xt  M0  AR  Y , N UKE  MO  , KE  YCOO  E . IIAS 

SCAN 

2 

iri 

SCAN 

J 

c— 

istring  ano  kewoary  nust  be  right  justified  m i tm  zero  ful 

SCAN 

4 

DIMENSION  ISTRINGE  11  , I »L  AE10) 

SCAN 

5 

DIMENSION  KEN0ARYE1) 

SCAN 

b 

IF  ( I ST  ART  .GT.  LENGTH  .OR.  NUKEMO  .LE.  3)  GO  TO  15G 

SCAN 

r 

K(>l 

SCAN 

a 

J>l 

SCAN 

9 

00  100  I<ISTART, length 

scan 

10 

IF  (ISTRING <I)  .NE.  1RG  .ANO.  ISTRINGII)  .NE.  1RL>  GO  TO  130 

SCAN 

11 

J>JU 

SCAN 

12 

KK=ISTRING(I)fKK*6G 

SCAN 

13 

100 

CONTINUE 

SCAN 

14 

DO  65  L*1 .NUKE  MO 

SCAN 

15 

IF  IKK  .EQ.  KEMOARTIDI  GO  TO  200 

SCAN 

lb 

65 

CONTINUE 

SCAN 

12 

150 

ILAST*LENGTH  MSTART 

SCAN 

ia 

KEYCOOE'I 

scan 

10 

RETURN 

scan 

20 

200 

IL AS  T = I 

SCAN 

21 

KE  TCOOE*L 

SCAN 

22 

RETURN 

SCAN 

23 

ENO 

SCAN 

2* 

FUNCTION  PO LYIA.XI 

POLY 

2 

DIMENSION  A(ll 

POLY 

3 

N > IFIXEAEll)  » 1 

POLY 

4 

J * N ♦ 2 

POLY 

5 

POLE  * 0. 

POLY 

b 

00  GOO  I = 1 . N 

POL  Y 

r 

J * J - 1 

POLY 

a 

GOO  POLY  * POLY  • X * A(J» 

POLY 

9 

RETURN 

poly 

10 

END 

POLY 

11 

11.3 
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SMPMS  X HASS  PER  UNIT  LENGTH 
El  : BENOING  RIGIDITY 

OAMPC  « STRUCTURAL  DAMPING  COEFIIIENT 
TOOT  = INITIAL  VERTICAL  VELOCITY 
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AOONS  * LINEAR  A OOE  0 HASS 

BUOY  = LINEAR  6Y0TANCY 

SCF  * SHITH  CORRECTION 

MONP  = MYORO-OAHPING 

YM  » INITIAL  VERTICAL  OISPL AC EHE*' T 
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SEAGEN  IS  USING  DISCRETE  NAVE  TRAIN 


Table  12  (Continued) 


* 


*4  <\J  * * & 

O O O O o o 


o 

Ul/ll/l 
\ UiUJ 

U)  uj  uj 

o « x 

3 O)  J 


U.  o O u.  II 
o o 

CVj  (Vi  r>  «NJ  >- 
u • • • u « 
♦ o ♦ a 
uj  uj  a; 

u o <• 

O N N N s 

a a x 

o (K  w UJ  oh 
a UJ  j j h Q 
hh  J J -In 
• < 2 Z • X 
* « « 

M SS  8 vt  H 

O M O 

H H H or  I UJ 

« 3 * O < 

8(0  H)  UJ  Z J 

z o uj  uj 
uj  » _j  * 
V)  o < • 
ft.  Z4ZUJ 
►4  V>  ft  *-  O ft 

SSrfKCS 

Z < 

H H M ►* 

N V)  N 

U i Z II  ft 

4 2 < « -J 

Of  UJ  H (K  K 7 

OOCOOCD 


2 

S 


5 

0 

1 

tel 

t 


o z 

X o 

(/!  *-4 

3 UJ  U.U.U.U.U.U.U.U.U.U. 

0$  r^»*(\JC\J<\J(\J(\J(\j(\Jf'jlM(\J 

Zcjcjooooooooo 

■H 

O JwUJUJUJUJUJUJUJUJUJUt 

♦ mxooo  rsocaoooo 

uj  H'soonoooraoo 

<3  U.O0000000000 

H O OHaOOOOOOOOO 

U.  o l^)D  O>£'CDU)tOU)U) 

H O Z 

U.  « o H •••••••••• 

O *4  O 

CVJ  ♦ • H4 

^ o teJ  X 

H 0 0 4 0 

o o i uj  o 

♦ ♦ UJ  o O II 

UJ  UJ  * Cl  O 

O O N O rj  • 

O tn  QJ  O Jt  CVj 

O vO  ,*  CVJ  • 

O <0  CVJ  « X 

O 0IU)  • 

*4  • (7*  • Of 

• 04  N U 

*» 

• H X < 

O M H ►-  X 

ii  ii  r o uj 

< < 4>  z u.  /) 

II  < Z 4 H l|  teJ  O 1-4 

X ft  ►*  W * -J  Of  U.U.U.U-U.U.U.U.U.U. 

<0  jujIu  ► 5 

J*S  Soociaooaooon 

-J  IbkOlMld 

< U.  O O O h-  Z «•  UJ  UJ  UJ  teJ  UJ  teJ  teJ  UJ  teJ  teJ 

O te  H < uj 

U.  H UJ  Z H H fi 

O Ul  Z Z UJ  < V)  Xocjooocjoooo 

2 UJ  H (J  H C/1 

UJWO  W4  W 

ZC/lZO«  < O C\JCMC\JCVJ<\J<VJ<\J(VJ<\JC\J 

mc  4oh  » • r m • ••••••••• 

v»  O h-  a uj 

N M • *4  N X 

II  N N M 

*-  *-  N IM 

2V1ZWZNHV) 

H0404  K M z 

UOOH-O^-OOO 


eo^  uioa'U>^ 

u.  O O >0  JV  <C  x i/\ 

UJOJUKJiV 

OOXK-4X(T*rj» 

OU'^Ntf'HlVJrt 


*4  ^4  CM  Kl  .»  If*  XT' 
^OOOoOOO 

-UJUJUJUiUJUJUJ 

eoo'ff'ir^oo 

• oojcncMcr 
u e i\j  «'  • it  w n 

UJOOOhCJ'^'O 

OUl(VJUli0^v4«-« 


• UJ  UJ  UJ  UJ 
« 0 O ^ «4 
w C9  a «0  « 
te.  o *-»  0 ,* 

UJ  O o i O 

o o cvj  O'  in 

o CVJ  CO  40  *4 


119 


Table  12  (Continued) 


O 3 3 O 5 O I J o 'J  O ' J o o a o 

»♦♦♦♦♦♦*  ► ♦ ♦ ♦ ♦ ♦ ♦ 

^ UJ  ^ uJ  U m UJ  UJ  UJ  U 1. 1 

T **»  o 

H >0  (Vi 

^ l‘KliVU'  3 UV  0 <\l 

*0(04^^  o sj«HiA«av  cr  <r 

(\i^"1^U'i3  0H^(J'-t'0  0 -4  0 

Otfv  HvO")HH,\i»o^w)r>»  jt  "o  w o 

• •••••*•••••  • *3  • 

II  I I I I ♦ 

Ui 

-4-4-4A-4-40AA-4-4A  CVJ  «4<3  -4 

303303333033  C3  r3  0 O 

• ♦♦♦*♦  + ♦*♦♦♦  I ♦ ^ ♦ 

1 1 i . i |4J  |^i  ^ ui  m |^i  u Ui  |ii  ui  uj  0 yi 

(Vii)iViOHl«^OKW(Vj'3  3*  « « >9 

w*o«N(r’,)i4)(ra«iN  h a -r  j* 

a*  JV  0 A ^'O'O^U'O'NK  C3  J»  • i») 

0 0 t>  ''S  0 a 0 i M tfV/V  3 A ^ I 0 

N — * O 

(|»^«HUVNjfHHff*UVH  -4  0 *4  -4 

• •••••••••••  • • o • 

1 • I I I I I * 

ui 

W«4HHH«4H(Vini(ViNH  *4  0 H 

03303303  3 0 0 0 O *0  O 

*♦♦♦  *♦♦♦♦♦♦♦  ♦l/'  ♦ 

UJUiUJUJUiUlUiUiUJUlUiuJ  uj  (A  Ui 

a*iOa*N*OoKO«^K  « •£  ^ 

A 0 <T 

n^K4K.<ONMMi)a  i O'  • a 

H*Oaifl(Vj^mfi")(\i^«fi  ^ l a 

HK  3>NfO  # i i'MKotOK  -4  C\i 

<r  <M  c\»  «T  0 0 -4  A A A -4  (T  0 A k> 

• •••••••••••  • • rs  • 

III  I I I I I o ♦ 

ui 

HHHH*4*4>4MIMN(ViH  a »4  ^ *4 

ooaooooooooo  o o cr  a 

*♦♦♦*♦♦♦*♦♦♦  ♦ ♦ a ♦ 

UiUiUiUiyUllJUiUiUiUiUi  Ui  ui  IT  ui 

lfll^«Oll'3(Ml»)w)®(\JJt)  <SJ  *4  43  *3 

Ni0H®«Mr”)9,H«H  40  « H 0 

Ni0«MAN(\iOH3'OK  *4  A • lA 

# (T*  I K 

0 O 0 0 0%  0 A* 

00-40«4Aa-4AA-4«»  -4  0 A 0 

• •••••••••••  • • O • 

• I I I I I I ♦ 

Ui 

QU<40«i0<4HH(M<4(Vi  o H PO  *4 

oaapoooooouo  o o»A  o 

*♦♦♦*♦♦♦♦♦♦♦  ♦ ♦ 0 ♦ 

Ui  Ui  Ui  Ul  UJ  Ui  U y Ui  Ui  Ui  Ui  Ui  Ui  *3  ui 

noiAN(ViH«(T0^(Vic  0 -4  *3  fVi 

tKtON«N«  A.  -8  U lA 

(y®  ^ • J»K  MJ*N  0 A • Ai 

*4(W«A^NltOAHN(Vi  (7*  9*  I cr 

iMlAM^Hef|N#*iO*tA  lA  0 f\j  iA 

• •••••••••••  • • 0 • 

I I I I I I I ♦ 

Hf4Hf4H3HN(NiNO^  O -*  «£>  «4 

oeoooooooooo  a 00  o 

♦ ♦♦♦♦♦♦♦♦  l ♦♦  > ♦ 1 * 

UlliiUJlilUi^MWUiWWiii  ui  Ui  fu  y 

^^A0^)A0(T>*-«*O^  (M  3 i O 

0AR30-409»0CT»»>0A  l\J  0 «4  *4 

O*3A0AOoA-4*00  0 O • 0 

A«4Atfrr<0H0na«A  a 0 1 0 

A«H^(\|H(^»4«(\i*4N  (T  «4  '0 

*4  A a 4) 

• •••••••••••  • • e • 

lilt  I I ♦ 

Ui 

4oOT«H^*iN  N»(4W  *4  0 .4 

oooooaoaoaca  00  o 

♦ ♦♦♦♦•♦♦♦♦♦♦  ♦ ^ ♦ 

uiiiiUiyuiwyUiUiyUiy  ui  ^ uj 

K«f  «e  00  *t 

4/lA«40*4®AAA00A(r  0 *4  CT 

i®SN*^nOCO0'AO  ir)  D * H 

*3  I A 

>Ao*4*4AA|iVyoru<40  *4  A 

Ai«fl^  HH  Ai  »4  0 

• ••#••••••••0*  • o 

Sill  ♦ o I ♦ 

o Ui  UI 

yyyH«4«40HMN«4«4N«  •*  N *4 

OOOOOOOOOOOOO  ON  O 

¥»*♦♦♦♦♦♦♦♦  ♦ » ♦ 

0UiUiUJUiUiUiUiUiUiUiUIUJO  ui  Ai  Ui 

A00O44OAOO0A44OO  o 0 m 

• #N««l»NNANilf  ••«  0O  A 

N O • • • I -4 

• f «#f  • SMI  O 

JJJ  JjJJJNN  j *J  *J 

• ••#••••  ••••0*0  *oo« 

• I • ♦ • ♦ I ♦ * 

Ui  Ui  Ui  Ui 

#4«40«40«4«400a«4*tf0  <T  N 4 4 

ooooooooooooo  *4  A cr  O 

0 (TO* 

UiUiUiUiUiUiUiUiUiUiUi  Ui  O 0 A (T  Ui 

O0A09>A0«3O0OoO  *3  0 0 0 

0»<9'«n0ll0AAHir0A  H 9>  *4  4 

0 0 • A 9*  9>  ® • 0 • A • O 0 0 0 0 It* 

O9*O«AO0AO0»0R3O  | A 

SS55SiCK2S3SS2-  - .*8 

• II  III  4 O ♦ ♦ 

91  Ui  A UI  Ui 

- *u5 

j w h ® o or  **0x0*0-41/1 

0 Ui  > O »Z*0  O A 0 A 9*  A 9*  0 X 
UI  X » Ui  » 0 O r»  -4  A 

1 j jU  o «j  o u o x a 5 »»>  a *>  *>  a 

*2iRW5sl  -R  *5  * I 


9*  0 

•4  A 

r a 

T A 


<r 

o 

o 

<r 


3 

a a 


(A  44 

o or 

UK 


cr 

£ 


IA  VI 

O O 


♦ «A  A 

:a  «■: 


*4*  A 

O 0 
0 O 
0 A 

A 0 


o o 
♦ ♦ 
“Ht 

A O 

9*  0 
•4  O 
• • 
•**  0 
I 


A 0 
0 0 
0 0 
r cr  *■> 
► « • 
H W W 
U I 


I I 
UJ  ui 

0 0 

0 -t 
<J*  A 
A 0 


I I 

Ui  Ui 
T <4 
* 0 
o 0 
0 0 


0 0 
A 0 
0 0 


I I 

A A 

0 c* 

1 I 

Ui  Ui 

-4  cr 

a e» 

41  —4 

0 0 

-4  <4 

I I 

A C'i 

0 o 

1 I 


I I 

A A 


0 Jj 

0 A 

A i/N 

0 « 

*3  43 

0 0 


O A 
'1  0 
43  0 

o <o 


0 O' 

0 cr 

® 0 
A O 
• • 
rr  43 

1 

0 0 


0 0 

I 

0 0 
o o 
♦ ♦ 
UJ  Ui 
0 0 
0 A 

<r  o 

0 -4 
• • 
0 0 


0 0 

0 cr 
A 0 
A 0 

n 43 

1 

0 0 


UJ  UJ 
9*  0 
0 *4 
Q O 
*3  0 
• • 
-4  «4 

I 

*>  0 


0 A 

-4  0 


** 


M 

o 

o z 

t/t  O 

o 

O 

O A A A UI  0 

O O 

c 

o 

o 

_J  o o o t o 

£ 4 

> 

♦ 

♦ 

UI  1 • 1 O 4 

Ui 

Ui 

Ui 

> Ui  UI  UI  Z Ui 

-1  "> 

0 

A 

0 o A IA 

0 0 

0 

o 

0 

* cr  -4  0 o w 

O 44 

o 

A 

0 R3  *4  a 1 44 

44  O 

44 

A 

0 

Z 

.4  0 A 0 44  0 

► • 

• 

4 

u 

9 • # • O 4 • 

or  a 

or 

0 

A 

A 

Vf  «4  «4  «4  Z O 0 

* 

• 

44 

a 

j'''  si  • 

120 


SHEAR  FORCE 
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TABLE  13  - PRINCIPAL  FORTRAN  VARIABLES  FOR  SUBROUTINE  HYD  FRC 


Call  Letters: 

ADDMS(I) 

BUOYSPG(I) 

CEL 

DXI 

El  (I) 

HF  (I) 

HFTEMP (I) 

HYDDAMP (I) 

NAPPLY (J) 

NCALC 

NLINV(J) 

SCF(I) 

SHPMS(I) 

SPEED 

T 

VCRIT(J) 

VMTEMP (I) 

VR(I) 

VRTMS 

YCRIT(J) 

YH 

YHDOT 

YR 

YRDOT 


Definition 


Symbol 


Added  mass  at  still  waterline  m^ 

Buoyancy  spring  = pgb^AX 

Celerity  of  wave  propagation  c 

Length  of  one  station  AX 

Bending  rigidity  El 

Total  hydrodynamic  force  P 

Intermediate  sums  of  hydrodynamic  force 
terms 

Real  part  of  hydrodynamic  damping  C(w) 

coefficient 


Array  giving  station  number  at  which 
Jth  hydrodynamic  force  is  applied 

Number  of  stations  at  which  hydrodynamic 
force  is  calculated 

Station  number  at  which  Jth  nonlinear 
hydrodynamic  force  is  computed 


Smith  correction  factor  pA^AX/m^ 

Ship  mass  m 

Forward  ship  speed  U 

Time  coordinate  t 


Relative  velocity  Vr  at  which  nonlinear 
force  changes  expression  for  Jth  non- 
linear group 

Intermediate  sums  of  mass  terms  (ship- 
plus  added-mass) 

Vertical  velocity  of  ship  relative  to  wave 

Total  mass  (ship-  plus  added-mass) 

Relative  displacement  Yr  at  which  non- 
linear force  changes  expression  for  Jth 
nonlinear  group 

Vertical  displacement  of  ship 

Vertical  velocity  of  ship 

Vertical  displacement  of  ship  relative 
to  wave 

Partial  time  derivative  of  Y^ 


V 

r 


m 

s 


+ mv 


Y 

Y 

Y 


3Yr/3t 
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TABLE  13  (Continued) 


Call  Letters: 

Definition 

Symbol 

YW 

Height  of  wave  surface 

Y 

w 

YWDOT 

Vertical  velocity  of  wave  surface 

Y 

. w 

Y 

w 

U/4AX 

YWDD 

ZBY4DXI 

Vertical  acceleration  of  wave  surface 
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TABLE  14  - INPUT  CARD  TYPES 
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HALF-STTN  Number  of  half-stations  (20)  At  omitted  half-stations  SHPMS=EI=DAMPC 

=YD0T=BDM=O 


TABLE  14  (Continued) 
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Input  cards  comprise  one  or  more  physical  records.  In  a case  input 
deck,  physical  records  may  appear  in  any  order.  Columns  1 through  10  of 
the  initial  record  of  a card  contain  the  card-type  name.  Input  cards 
consisting  of  more  than  one  physical  record  require  a unique  continuation 
field  in  columns  72  through  80  of  all  its  nonterminal  records.  On  noninitial 
records,  column  1 contains  a + , and  columns  2 through  10  match  the  continu- 
ation field  of  the  logically  preceding  record. 

Numeric  input  requirements  are  less  strict  than  I and  E,  i.e.,  integer 
and  exponent,  formats  in  that 

1.  Integer  fields  need  not  be  right  justified 

2.  Nonnumeric  characters  are  ignored,  except  for  the  decimal  point, 
e.g.,  blank  and  comma 

3.  Real  fields  lacking  a decimal  point  are  treated  as  fractionless 
real  numbers 

4.  Integer  fields  containing  a decimal  point  are  truncated. 

In  using  the  program  ROSAS,  the  following  input  cards  are  needed  and 
are  explained  in  detail. 

AAAI.  Slamming  Data 

Seven  data  cards  are  needed  for  SLAM.  They  must  come  first  in  the  data 
deck  and  be  in  the  following  order. 

Card  1: 


10 


20 


30 


40 


50 


60 


70 


DRAFT 

DENS 

BTANG 

DRANG 

Ignored 

80 


Leld: 

Format 

Contents 

DRAFT 

F10.0 

Draft  of  ship  in  feet 

DENS 

F10.0 

Mass  density  of  water  in  slugs 

BTANG 

F10.0 

Buttock  angle  in  degrees 

DRANG 

F10.0 

Deadrise  angle  in  degrees 
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Example : 


DRA1T  = 10.  ft 


DENS  = 2.  slugs/ft^ 
BTANG  = 0.  deg 
DRANG  - 3.  deg 


1 10 20 30 40 50 60 70  80 


10. 

CM 

0. 

3. 

Cards  2,  3,  and  4: 


1 10  20  30  40  50  60  70  80 


C0EF(1,1) 

EBB 

wmm 

e 

t 

(1.2) 

(1,3) 

H 

■ 

Field:  Format  Contents 

C0EF(8,3)  3(8F10.0)  Polynomial  Orders  and  Coefficients 

K = 0.32  + 8.5466395  £ + 150.46086  t}  for  0 <_  £ <0.0383972 
Example:  1C  = 2.1820894  - •••  - 19339.04  £5  for  0.0383972  < £ <0.191986 

= 4.748742  - •••  - 1975.052  £5  for  0.191986  < £ <0.349066 

1 10  20  30  40  50  60  70  80 


2. 

.32 

8.5466395 

150.46086 

0. 

0. 

0. 

0. 

5. 

2.1820894 

-54.154911 

668.88525 

-4399.3721 

14632.763 

-19339.040 

0. 

5. 

4.748742 

-77.064451 

517.53967 

2947.4596 

-1975.0520 

0. 

Cards  5 and  6: 


1 10  20  30  40  50  60  70  80 


WIDTH(l) 

(3) 

(A) 

U 

(6) 

(7) 

(8) 

(9) 

Field: 

Format 

WIDTH (10) 

2(8F10.0) 

Width  in  feet  of  the  slam  region  at  Stations  11 
through  20 
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Example:  b=WIDTH=46  ft 


46. 

46. 

46. 

46. 

46 . 

46. 

46. 

46. 

Card  7: 

1 


10 


BSLP  11281 


Field: 

BSLP 


Format 


Contents 


11281 


BSLP  is  a parameter  used  by  an  iteration  that 
determines  the  length  of  the  slamming  region. 

BSLP  should  be  chosen  so  that 

BSLP  = max  {b,  - b . . , } tan  6 + 0.1 
AX  l l+l 

where  8 is  the  deadrise  angle,  b^,  b^+^  are  the 

half  widths  at  adjacent  stations,  and  AX  is 
distance  between  stations 

110  Number  of  coefficients  used  to  smooth  the  slam 

forces 


Example:  BSLP=0.1 

1 10  20 


AAA2.  Hydrodynamic  Force  Data 

HYDR0  - Hydrodynamic  Force  Calculation  Card 


Field: 

ISTN 


ADDMS 


ISTN 

ADDMS 

BU0Y 

SCF 

HDMP 

YH 

Contents 

Station  number  at  which  HYDR0  forces  are  to  be  calculated. 
At  present,  ISTN  can  only  assume  values  3,  5,  7,  9,  11,  13, 
15,  17,  and  19. 

Linear  added  mass  in  ton-seconds  squared  per  square  foot 
2 2 

(ton-s  /ft  ) at  station  ISTN 
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Field: 


Contents 


2 

BU0Y  Linear  buoyancy  in  tons  per  square  foot  (ton/ft  ) at  station 

ISTN 

SCF  Smith  correction  factor  in  square  feet  per  ton-seconds 

2 2 

squared  (ft  /ton-s  ) at  station  ISTN 

HDMP  Hydrodamping  in  ton-seconds  per  foot  (ton-s/ft)  at  station 

ISTN 

YH  Initial  vertical  displacement  in  feet  at  station  ISTN.  (This 

field  is  ignored  if  appropriate  INITIAL  cards  are  present 
in  the  input  deck.) 

Example:  Station=ISTN=3 

2 2 

mQ=ADDMS= 1.27805  ton-s/ft 

k,=BU0Y=2. 605691  ton/ft2 

° 2 2 
pA0=SCF=0.9077  ft  /ton-s 

C(w)=HDMP=0.9  ton-s/ft2 

Y=YH=>0 


1 10  20  30  40  50  60  70  80 


HYDR0 

3 

1.27805 

2.605691 

.9077 

.9 

NL_A/NL_B  - Nonlinear  Added  Mass/Buoyancy  Card 

(a)  Unconditional  (No  Restriction  on  Y^  and  Vf) : 


I 10  20  30  40  50  60  70  80 


NLA 

NLB 

ISTN 

NEXP 

Cl 

C2 

C3 

C4 

(b)  Y Conditional: 
r 


1 10  20  30  40  50  60  70  80 


NL1A 

NL1B 

ISTN 

YC 

ignored 

+abc 
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(c)  Y and  V Conditional: 
r r 


1 10 


NL2A 


ISTN 

YC 

VC 

ignored 

+ghi 



+ghi 

C0DE2  L 

NEXP1 

C11 

C21 

C31 

C41 

+jkl 

+jkl 

C0DE22 

nexp2 

C12 

C22 

C32 

C42 

+mno 

+mno 

C0DE23 

nexp3 

C13 

C23 

C33 

C43 

+pqr 

C0DE2,  NEXP.  Cl, 

4 4 4 


C2.  C3,  C4 . 

4 4 4 


Contents 


ISTN 

YC 

VC 

C0DEY 


C0DE2 


Station  number  as  before 
Y^  (Yr  - critical)  in  feet 
Vc  (Vf  - critical)  in  feet 

Alphanumeric  condition  code  (Y  - conditional) : 

YLYC  for  Y < Y 

— r c 

YGYC  for  Y > Y 

— r c 

Alphanumeric  condition  code  (Y^,  V - conditional) 

YLYC/VLVC  for  Y < Y , V < V 

— — r c r c 

YGYC/VLVC  for  Y > Y , V < V 

— — r c r c 

YLYC/VGVC  for  Y < Y , V > V 

— — r c r c 

YGYC/VGVC  for  Y > Y , V > V 

— — r c r c 

Coefficients 
Expression  number 
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Example: 


NEXP 


Expression 


Number  of 
Coefficients 


2 

C, 

Y 

1 

1 

r 

3 

C1 

<Yr' 

V 

1 

4 

C, 

Y + 

c„ 

2 

1 

r 

2 

5 

c. 

Y2 

1 

1 

r 

6 

C1 

<Yr  ' 

- Y 

c 

;)2 

1 

7 

c. 

Y2  + 

C. 

Y 

2 

1 

r 

2 

r 

8 

c. 

Y2  + 

C0 

Y 

+ 

Co 

3 

1 

r 

2 

r 

3 

9 

c. 

Y3 

1 

1 

r 

10 

c. 

(Y  - 

- Y 

,)3 

1 

1 

r 

c 

11 

C, 

Y3  + 

C. 

Y2 

2 

1 

r 

2 

r 

12 

c. 

Y3  + 

C„ 

Y2 

+ 

Co  Y 

3 

1 

r 

2 

r 

3 r 

13 

c. 

Y3  + 

Co 

Y2 

+ 

C.  Y + C. 

4 

1 

r 

r2 

r 

3 r 4 

14 

c. 

Y2  + 

Co 

2 

1 

r 

2 

t 

15 

c. 

Y3  + 

Co 

Y 

2 

1 

r 

2 

r 

16 

c. 

Y3  + 

C„ 

Y 

+ 

Co 

3 

1 

r 

2 

r 

3 

17 

c. 

y3  + 

C„ 

2 

1 

r 

2 

18 

c. 

y3  + 

Co 

Y2 

+ 

Co 

3 

1 

r 

2 

r 

3 

3 2 2 

Station  17,  Added  mass  10  ton-s  /ft 

m = -13.17  Y + 1.568  Y2 
r r 

=>  -13.17  Yf 

= -13.17  Y + 2.720  Y2 
r r 

« -13.17  Yr 


> 0, 
< 0, 
> 0, 


V > 0 
r 

> 0 
< 0 
< 0 
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AAA3.  Ship  Response  Data 


Field:  Contents 

CPSNAT  Ship  natural  frequency  in  hertz 

PCCP  Percent  of  critical  damping,  e.g.,  10  percent  is  entered  as 

.10 

Example:  Ship  natural  frequency=CPSNATal  Hz 

Percent  critical  damping=2  percent 


A 
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V 


Field: 


Contents 


HSTN  Half-station  number,  e.g.,  4.5 

2 2 

3HPMS  Ship  mass  per  unit  length  in  ton-s  /ft  at  half-station  HSTN 

2 

El  Bending  rigidity  in  ton-feet  squared  (ton-ft  ) at  half- 

station HSTN 

DAMPC  Structural  damping  coefficient  in  ton-seconds  per  square 

2 

foot  (ton-s/ft  ) at  half-station  HSTN 

(This  field  is  ignored  if  a DAMPC  card  is  present  in  the 
input  deck.) 

YD0T*  Initial  vertical  velocity  of  ship  in  feet  per  second  at  half 

station  HSTN. 

BDM*  Initial  bending  moment  in  feet-tons  at  half  station  HSTN. 


Example:  At  Station  1.5 

HSTN  = 1.5 

m = SHPMS=  0.74401  ton-s2/ft2 

El  = 7.76725  * 109  ton-ft2 
C = DAMPC=  0.080882 
Yq  = YD0T  = 0 (initial  condition) 
Mq  = BDM  ■ 0 (initial  condition) 


1 10  20  30  40  50  60  70  80 


HALF-STTN 

1.5 

.74401 

7.76725+9 

.080882 

STATION  - Station  Card 


1 10  2C  30  40  50  60  70  80 


STATION 

ISTN 

KAG 

RINT 

GD0T 

SF 

ignored 

Field:  Contents 

ISTN  Station  number 

KAG  Shear  stiffness  in  tons  at  station  ISTN 


*Ignored  if  appropriate  INITIAL  cards  are  present  in  input  deck. 
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Field: 


Contents 


RINT 

GD0T* 

SF* 


Moment  of  inertia  in  ton-seconds  squared  at  station  ISTN 
Initial  angular  velocity  in  radians  per  second  at  station 
ISTN 

Initial  shear  force  in  tons  at  station  ISTN 


Example:  ISTN 

KAG 

I = RINT 
mz 

y =*  GD0T 
V = SF 


Station  0 

13.3987  x 105  tons 
0.02686  x 103  ton-s2 
0 (Initial  condition) 
0 (Initial  condition) 


1 10  20  30  40  50  60  70  80 


STATI0N 

0 

1339870. 

26.86 

INITIAL  - Initial  Conditions  Card 

(Initial  conditions  cards  are  the  punched  final  conditions  of  a 
previous  run.) 


10  20  30  50 


70  80 


INITIAL 

1 

ignored 

TSTRT 

ignored 

INITIAL 

2 

HSTN 

YD0T 

BDM 

INITIAL 

3 

ISTN 

GD0T 

SF  i 

INITIAL 

4 

ISTN 

YH 

ignored 

iCTN  LNGTH 

- Section  Length  Card 

1 

10 

20 

30 

40 

50 

see  INTGRTN  card 
see  HALF-STTN  card 
see  STATI0N  card 
see  HYDR0  card 


60 


70 


80 


SCTN  LNGTH 

DXI 

ignored 

*Ignored  if  appropriate  INITIAL  cards  are  present  in  input  deck. 
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Field: 


Contents 


Distance  between  adjacent  stations  in  feet 


Example:  AX  *■  DXI  = 41  ft 


SCTN  LNGTH  I 41. 


SPEED  - Speed  Card 


SPEED  SPEED 


ignored 


Field: 


Contents 


SPEED 


Ship  speed  in  feet  per  second 


Example:  U = SPEED  = 27  fps 


SPEED 


COMMENT  - Comment  Card 


COMMENT  | COMMENT 


Field: 


COMMENT 


Contents 

Commentary  material  inserted  into  echo  listing  of  input  deck. 
The  COMMENT  cards  are  otherwise  ignored. 


Example: 


1 10  70  80 

COMMENT  ESSEX  DISCRETE  WAVE  TRAIN 

AAA4.  Option  Selection  Data 
CONTROL  - Control  Card 


1 10  20  30  40  50  60  70  80 


C0NTR0L 

ignored 

| cntrl2 

ignored 

cntrl3 

ignored 

CNTRL. 

4 

Contents 

Punch  YES  if  having  final  conditions  punched 
Punch  YES  if  including  nonlinear  hydrodynamic  force 
Punch  YES  if  including  hydrodynamic  damping 

Example: 


Field: 

cntrl2 

cntrl3 

CNTRL; 


1 10  20  30  40  50  60  70  80 


C0NTR0L 

PUNCH- 

YES 

YES 

HYD  DAMP- 

YES 

DEBUG  - Debug  Card 


1 10  20  30  70  80 


DEBUG 

IBEG 

I END 

ignored 

Field:  Contents 

IBEG  Intermediate  calculations  will  be  put  out  between  derivative 

evaluations  number  IBEG 
I END  I END 

Example:  In  the  subroutine  KUTMER,  HCX  is  the  smallest  step  size  used  in 

the  integration.  For  debugging,  it  has  been  decided  to  print, 


135 


first,  two  steps  for  examination;  then,  IBEG=1  and  IEND=2  and 
debug  cards  will  be  as  follows 


Field: 


Contents 


HMNI  Maximum  internal  step  size 

TSTRT  Start  of  simulation  in  simulation  seconds.  This  is  ignored 

if  an  appropriate  INITIAL  card  is  present  in  input  deck. 

TF  End  of  simulation  in  simulation  seconds 

TCPU  Job  time  limit  in  CPU  seconds 


Max  Relative 
Error  in  Units 
Per  Unit 

Max  Absolute 
Error  in  Unit 

Unit 

Dependent 

Variable 

YHE 

YHAB 

feet 

Vertical  displacement 

YD0TE 

YD0TAB 

feet  per 
second 

Vertical  velocity 

GD0TE 

GD0TAB 

radians  per 
second 

Angular  velocity 

BDME 

BDMAB 

foot-tons 

Bending  moment 

SFE 

SFAB 

tons 

Shear  force 
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Example: 


HMNI 

a 

0.0125  s 

TSTRT 

- 

0 s 

TF 

- 

2 s 

TCPU 

- 

1500  s 

YHE 

3 

0.1  ft 

YHAB 

- 

1 ft 

YD0TE 

= 

0.01  ft/s 

YD0TAB 

- 

1 ft/s 

GD0TE 

- 

0.01  rad/s 

GD0TAB 

« 

0.2  rad/s 

BDME 

- 

0.2  ft-ton 

BDMAB 

2000  ft-tons 

SFE 

- 

0.05  ton 

SFAB 

- 

300  tons 

1 10  20  30  40  50  60  70  80 


AAA5.  Output  Description  Data 
AXES  - Axes  Card  for  Plotting 


1 10  20  30  40  50  60  70  80 


AXES 

P„ 

P 

B„ 

B 

w„ 

w 

l 

u 

£. 

u 

i 

U 
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Axis 

Lower  Limit 

Axis 

Upper  Limit 

Unit 

Plotted 

Variable 

P* 

P 

u 

degree 

Pitch 

B* 

B 

u 

foot-ton 

Midship  bending  moment 

w 

U 

feet 

Wave  height  at  bow 

Example: 

P^  = -3  deg 

P = 3 deg 
u 

=*  —6 ( 1 0) 5 ft-ton 

B = 6(10) 
u 

W£  = -12  ft 

W = 12  ft 
u 

PL0T  - Plot  Card 


1 10  20  30  40  50  60  70  80 


PL0T 

NAME 

C0DE 

PH0NE 

W1 

R 

ignored 

Field:  Contents 

NAME  j 

C0DE  | PLOT  IDENTIFICATION 

PHONE  ’ 


Field: 


Contents 


Wj  Time  in  simulation  seconds  between  plotted  points 

R Number  of  simulation  seconds  of  data  per  frame 


Example:  Name  = Schroeder 

Code  =■  1844 
Phone  = 71426 

= 0.1  s between  plotted  points 
R * 60  s per  frame 


1 10  20  30  40  50  60  70  80 


PL0T 

SCHROEDER 

1844 



71426 

0.1 

60. 
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PRINT  - Print  Card 


t 


Field:  Contents 

TIMES  Print  times  in  simulation  seconds  expressed  in  free-field 

"bias  width"  notation.  For  example,  0(.l)  1(.5)  5(.l)  6$ 
represents  0,  0.1,  0.2,  . . . 0.9,  1,  1.5,  2,  2.5,  . . ., 
4.5,  5,  5.1,  5.2,  . . .,  5.9,  6,  and  6$  means  that  6 is 
last  simulated  second. 

Example:  Print  results  every  second  from  0 to  90  simulation  seconds. 


! 

i 

i 

I 


l 


AAA6.  Sea  Dynamics  Data 

SEA- GEN  - Sea  Generator  Card  (Case  1 - Point  application  of  sinusoidal 
standing  wave  to  determine  ship  vibratory  frequency.) 


Field:  Contents 

FREQ  Wave  frequency  in  hertz 

WVHGH  Wave  height  in  feet 

SEA-GEN  - Sea  Generator  Card  (Case  2 - Sinusoidal  sea  wave  application  with 
wave  velocity  C = g/w  to  determine  ship  RAO's.) 
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SEA-DATA  - Sea  Generator  Card  (Case  3 - Discrete  wave  train;  at  present,  pro 
gram  is  written  for  ESSEX  only;  it  will  be  necessary  to  revise 
the  program  for  sea  trial  data  of  other  ships.) 


1 10  20  30  40  50  60  70  80 


SEA- DATA 

OMEGA ( 1 ) 

OMEGA (2) 

OMEGA (3) 

TAU ( 1 ) 

TAU (2) 

TAU (3) 

Example:  = OMEGA  (1) 

w = OMEGA  (2) 
oo3  = OMEGA  (3) 
x = TAU  (1) 
x2  = TAU  (2) 
t3  = TAU  (3) 


1.08470672  rad/s 
0.598444  rad/s 
0.804804  rad/s 
4.11238748  rad 
-21.97272  rad 
-29.54952  rad 


1 10  20  30  40  50  60  70  80 


SEA-DATA 

1.08470672 

.598444 

.804804 

4.11238748 

n 
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